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ABSTRACT 
IE RUL BOO RII TS ORE RMESE HEEB ra 
Sas HeeID CHA ee GIT vo GES BuO er 


CORD LENGTHS, WRITING AND READING SEQUENCES AND STOPPING MODES 
(NONSTOP, START-STOP, RANDOM STALL DELAY). 


REQUIREMENTS 
EQUIPMENT 

POP=11 WITH TM11 AND 1 TO 8 TUIO TAPE UNITS (7 CHANNEL ONLY) 
STORAGE 

PROGRAM STORAGE 

THE ROUTINE REQUIRES 4K OF MEMORY. 

PRELIMINARY PROGRAMS 


THE TM11 INSTRUCTION TEST AND TM1i DRIVE FUNCTION TIMER MUST RUN 
PROPERLY BEFORE ATTEMPTING TO USE THIS PROGRAM. 


LOADING PROCEDURE 
METHOD ra 
PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED: 
b rats E LORDER MUST BE IN MEMORY. 


Ab ABORESS g 1500. (s BETERHTNED a! LOCATION OF LOADER? 


SS “START” (PROGRAM WILL L 


STARTING PROCEDURE 
- CONTROL SWITCH SETTINGS 
FOR INITIAL OPERATION OF PROGRAM ALL SWITCHES SHOULD BE = 0 


(OR DOWN) 
STARTING ADDRESS 

200 - BASIC TEST (AUTOMATIC PARAMETER AND UNIT SELECTION) 
204 - OPERATOR CONTROLLED PARAMETER TEST(WITH 4K MEMORY AVAILABLE? 
210-  * ce A . 
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PROGRAM AND/OR OPERATOR ACTION 


PERE I Be an ne 
pe TIPS er fh fate RTE MRI 2 SARs 
CT TAPE REFERENCE 4, ‘2 


TYPE. CARRIAGE RETURN AND PROGRAM 


TAPE UNIT SELECTION 
orth NG THE PROGRAM AT WILL RESULT IN AUTOMATIC ale 


THE UNITS TO BE TES (REFERENCE 4.3.1.2) OTHERWISE 
T 204 OR 210 WILL ALLOW OPERATOR TO SELECT UNITS. 


PROGRAM WILL vas ELECTE T aT Bri ay ON GURATION 
Ifo TE parts MAY BE ED anoend a ie a * 
iB Wd ee PR NTED. TYPING T 
ee rn 7 men cE it uit ng pat UNIT NUMBER TO 
7 WILL CAUSE A QUESTION 
0 6 BE Bt PRINTED AN AND THAT oer WILL BSE IGNORED. 


TO TERMINATE UNIT SHLEC TION TYPE A CARRIAGE RETURN. WHEN 
nant fe RETURN IS TYPED THE PROGRAM WILL CONTINUE TO THE 


S 
25 
WILL BEGIN TESTING. 


oe ae a at tg 
+0 0-29 0-9» + 
PUNE CD WA Loe 


o- 
OCD 


tj 
~ 


SELECTION” UNLESS NO UNITS WERE SELECTED AND IN 
THAT EVENT WILL RETURN TO THE BEGINNING OF “SELECT UNITS”. 


TAPE UNIT SELECTION EXAMPLES 


aeLeet UNITS 3,4,5 
SELECT UNITS 5,3,4 


IN EITHER CASE, UNITS 3,4,5 ARE SELECTED. 


SELECT UNITS 
SELECT UNITS 


A CARRIAGE RETURN WAS TYPED WITH NO UNITS SELECTED. 
SELECT UNITS 1,97,1,2 —~ 


ONLY UNIT 2 SELECTED, UNIT 1 WAS DELETED (TYPED TWICE) 
AND THE 9 WAS IGNORED. 


4.3.1.2 STIS - 200 WILL RESULT IN AUTOMATIC SELECTION OF UNITS TO 
TES it WILL BE SELECTED FOR TESTING IF IT MEETS THE 


} 
1 
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ES SBIR PRES EE Upp ron 


S ON-LINE 
SEVEN(?) TRACK 
WRITE ENABLED 
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S_NOT MEET BY AT LEAST ONE(1) UNIT 
Be REQUIRED 
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PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AN 
OF TEST tae (Trt bal 4.3.2.1 de HERW 
204 OR OW OPERATOR TO SELE 


ADDRESS 

PARAMETERS TO 

OPERATORS SEVEN | YeES OF PA TEST RUFEER oF EAN 

RECORD LENGTH, WRITE MODE, READ MODE. THE 
“TST PAT PAR DEN RLS WMO RMO” 

TST=TEST NUMBER 

PAT=PATTERN 

DENSDENSITY 

RLS=RECORD LENGTH SEQUENCE 

WMO=WRITE START/STOP MODE 

RMO=READ START/STOP MODE 

TEST NUMBER 

THERE ARE 6 TESTS AVAILABLE FOR SELECTION (0 THRU 5). 

TEST a, DESCRIPTION 


0 RECORD, REPEAT ON ALL UNITS, CONTINUE TO END 


7 i 


BY T 
“Pani DENSITY 


AUTOMATIC SELECTION 
i STAR 


1 - RECORDS, REPEAT FOR ALL UNITS, CONTINUE TO END 


"Pe TE 256 RECORDS, REPEAT FOR ALL UNITS, BACKSPACE 256 
OROS REPEAT T FOR ALL UNITS READ €56 RECORDS, REPEAT 
ALL’UNITS , CONTINUE TO END OF TAPE. 


WRITE 1 RECORD, REPEAT FOR ALL UNITS, BACKSPACE, REPEAT 
rite WD Eto oF Thee 1 RECORD, REPEAT FOR ALL UNITS, 


ITE 1 RE AT FOR ALL UNITS. REPEAT FOR 256 
RECORDS BACK CORD, REPEAT RECORDS, CRE PEAT FOR ALL UNITS, 
READ 1 RECORD REPEAT FoR ALL init, REPEAT FOR 256 
RECORDS” CONTINUE TO END OF TAPE 


OF TAP 1 RECORD, REPEAT FOR ALL Mars, CONTINUE TO END 
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59 


a 
be 


I 
i 4.3.2.2 PATTERN | : 
21s THERE ARE 8 DATA PATTERNS AVAILABLE FOR SELECTION (0 THRU 7) WITH EACH PARITY. 
i PATTERN DESCRIPTION DATA. 
219 0 (EVEN) HIGH FREQUENCY OUTSIDE SKEW O01 
eel Pte 
223 0 (ODD) HALF FREQUENCY OUTSIDE SKEW 01 
=24 06 
225 01 
226 00 
227 ETC 
229 
229 1 (EVEN) SLIDING. “0” 37 
230 57 
231 67 
232 73 
233 75 
234 76 
235 ETC 
B36 

237, 1 (ODD) SLIDING “1” 40 
238 : 20 
2239 10 
e410 4 

1 2 
o4e 1 
243 ETC 


2 (EVEN) HIGH FREQUENCY ALTERNATING 25 
TRACKS 25 
ET 

2 (000). HIGH FREQUENCY ALTERNATING 52 
TRACKS ) = 


3 (EVEN) HALF FREQUENCY OUTSIDE TRACK 7 
HIGH FREQUENCY INSIDE TRACKS 


3 (00D) HIGH FREQUENCY OUTSIDE TRACK Ol 
HALF FREQUENCY INSIDE TRACKS 77 


RES RRR SRO B a wae 


rT 
& 
m 
+ 
oO 


ees oo 
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PATTERN DESCRIPTION 
(EV T TT 
4 (EVEN) INCREMENTING PATTERN 


4 (00D) INCREMENTING PATTERN 
(INCLUDING ALL 0’S) 


S (EVEN) THREE 0’S EACH TRACK EVERY 37 
6TH WORD 37 


Piast eee netted ail hiatal eS RAR RRMA Lata 


: 5 
x, 57 
*% ’ 67 
. 73 
5 (ODD) THREE 1°S EACH TRACK EVERY: ’- 40 
6TH WORD . 
310 . 30 
311 
3g 
rk 
314 
315 04 
318 
318 
- 319 


ee ee eee ee 
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6 (ODD,EVEN) ALL 1°S 


7 (EVEN) RANDON (NO ALL 0’S) 
7 (ODD) RANDOM (INCLUDING ALL 0’S) 
4.3.2.3 PARITY 
PARITY SELECTION IS EITHER EVEN OR ODD. 


PAR DESCRIPTION 
0 EVEN PARITY. 


1 ODD PARITY 
4.3.2.4 DENSITY 
THERE ARE 4 TYPES OF DENSITIES FOR SELECTION (2,5,8,C) 
DEN DESCRIPTION 
200 BITS PER INCH. 
556 BITS PER INCH. 
B00 BITS PER INCH. 
800 BPI CORE DUNP. 
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4.3.2.5 RECORD LENGTH SEQUENCE 
THERE ARE 4 TYPES OF RECORD LENGTH SEQUENCES FOR SELECTION (0 THRU 3) 
RLS DESCRIPTION 
0 MINIMUM LENGTH RECORDS (4 BYTES) 
l MAXIMUM LENGTH RECORDS (1024 BYTES) 
2 VARING LENGTH RECORDS, MINIMUM TO MAXIMUM (1ST RECORD= 
4 BYTES, EACH SUCCESSIVE RECORD IS 4 BYTES LONGER 
UNTIL 256TH RECORD=1024 BYTES) % 
VARYING LENGTH RECORDS, MAXIMUM TO MINIMUM (1ST RECORD= 
ides BYTES, EACH SUCCESSIVE RECORD IS 4 BYTES SHORTER 
UNTIL 256TH RECORD=4 BYTES) 
4.3.2.6 WRITE START/STOP MODE | | 
THERE ARE 3 TYPES OF WRITE MODES FOR SELECTION (0 THRU 2) 
WMO DESCRIPTION 
0 NONSTOP - NO WAITING BETWEEN WRITE OPERATIONS. NEW 
COMMAND IS fSSUED HEN GU READY seve: 
1 START/STOP - FULL STOP BETWEEN WRITE OPERATIONS. NEW 
COMMAND IS ISSUED WHEN TU READY SETS. 


e RANDOM - FULL STOP WITH RANDOM DELAY (1-256 MILLISECONDS) 


369 
3 


70 
ie 
374 
He 
377 
378 
379 
380 
381 
382 
383 
384 
385 
337 
388 
389 
390 
331 
332 


Ww 
w 
w 
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4.3.2.7 READ START/STOP MODE 
THERE AKE 3 TYPES OF MODES FOR SELECTION (0 THRU 2) 
RMO DESCRIPTION 


0 NONSTOP - NO WAITING BETWEEN READ OPERATIONS. NEW - 
7 COMMAND IS ISSUED WHEN CU READY SETS. 
1 “START/ST P STOP BETWEEN READ OPERAT tes NEW 
e5 MAND IS" SUED WEN TU READY SETS 
2 RANDOM - FULL STOP WITH RANDOM DELAY (1-256 MILLISECONDS) 


4.3.2.8 FINAL TEST SELECT AF ?ROVAL 


AFTER SELECTING RMO, IF ALL PARAMETERS SELECTED ARE LEGAL, “OK” 
WILL BE PRINTED. IF THE PARAMETER SELECTED STILL CORRESPOND 
TO THE OPERATORS STENT ONS HE MUST TYPE A CARRIAGE RET’ 

TO SAVE THE PARAMETERS. TYPING ANY OTHER KEY NOW, OR IN FACT 
AT ANY TIME DURING eg Us SELECTION TYPING AN fLLEGAL KEY 

L ae mi, 3 creat PARAME TO B ate AND A NEW 


PARAMETE TEN SETS OF 
PARAMETER SELECTIONS CA BE MADE. EACH set WiLL BE EXECUTED 
AFTER THE PREVIOUS ; REACHES END OF TA TERMINATE 
PARAMETER SELECTION A SECOND CARRIAGE RETURN MUST BE TYPED AFTER 
SELECTING A SET OF PARAMETERS. 


4.3.2.9 TEST SELECTION EXAMPLES 


TST PAT PAR DEN RLS WMO RMO 
€e@eios0 6 @& (tH) 


0903822 2 go? 
de? § § & Ft GB Mite 


TWO PARAMETERS SETS WERE SELECTED BY THE ABOVE SEQUENCE 


TEST3, PATTERN 2, EVEN PARITY, 200: BPI, MAXIMUM RECORD LENGTH, 

WRITE NONSTOP, AND READ N NONSTOP. 

TES PATTERN 1 ODD PARITY, 800 BPI VARYING RECORD LENGTH 
NFO MAX WRite START/STOP, READ N 

(NOTE, EVEN +HOUGH TEST O IS A’ WRITE ie ort ALL PARAMETERS 

MUST BE SATISFIED.) (IN THIS CASE RMO HAS NO EFFECT) 


IN THE SECOND PARAMETER SET A “K” WAS TYPED WHICH WAS ILLEGAL 
AND THE SET WAS REINITIALIZED. 


IN THE THIRD PARAMETER SET AN “xX” WAS TYPED INSTEAD OF A CAR 
RIAGE RETURN AND THE PARAMETERS WERE IGNORED. AFTER AT LEAST 
ONE GOOD SET WAS SELECTED A CARRIAGE RETURN WAS TYPED AT THE 
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450 BEGINNING. OF THE PARAMETER SELECTION AND THE PROGRAM WOULD START 
451 TESTING. ©...) : 


oo en ae ee ee we se ee 
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4.3.2.10 AUTOMATIC PARAMETER SELECTION 


a HE FOU RE E THe FOLLOWING TEST PARAMETERS 


TST PAT PAR DEN RLS WMO RMO 
at a ee ga Se ee 


Boose as 


OPERATING PROCEDURE 


Hg: PROGRAM HAS BEEN MODIFIED Le RUN ON A PROCESSOR WITH OR WITHOUT 
ARDWARE SWIT oy Ait y ER. WHEN FIRST EXECUTED ML PROGRAM TESTS 

THE EXISTENCE OF A HARDWARE SuTTCH REGISTER. IF NOT FOUND A 

SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. 

IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 

DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(IE) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 


1. <CR> (0 CHANGES ARE TO BE MADE 
2: & DIGITS 0-7 19, REPRESENT 9 NEW SUITCH REGISTER 

T DIGI POLLO D BY 
3. tu To ac REENTERING VF VALUE IF ERROR’ IS COMMITTED 
4, <(LF> ONLY VALID FOR ACT-11 SYSTEMS-DO NOT USE 


BUILT INTO. THE PROGRAM I IS THE ABILITY TO DYNAMICALLY CHANGE THE 
a Eons PROGRAM M EXECUTL UTION. BY S TRIKING 

CGT GS o) NYS oF Y TH OPER PROCES my ROey BREE Ae c To cna PROGRAM 

CODE CES NT BRoh eae AFT B hae i seep OF PASS, ENB OTHER 

APPLICABLE AREAS. 


OPERATIONAL SWITCH SETTINGS 

THE OPERATIONAL SWITCH SETTINGS ARE USED TO: 
A. ALTER ERROR RECOVERY PROCEDURES 

B. DELETE ERROR PRINTOUTS 
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fae 


a 
@ © 


CAUSE A TEST SEQUENCE TO SE REPEATED WITH A VARIATION 


ey 


Ow 


THE PATTERN, RECORD LENGTH SEQUENCE, WRITE MODE, OR READ MOCE 


SWITCHES TO ALTER ERROR RECOVERY 
THE FUNCTION PERFORMED IS WITH THE SWITCH IN THE “1” (OR UP) 
POSITION. , 


aaa aati t aly 
0-2 0-2 0-2 0 + b= b- &-0 Bo p= B- 
OCD ~ IU 6: Gatue~ 


Re 


ay 
tu 


iJ) 


DELETE READ RE-TRYS 


DELETE WRITE XIRG 


a Sit ct 


WRITE STATISTICAL 
RECOVERY 





URPOSE 


OPERATIONS. 


USE OF THIS SWITCH WILL CAUSE 
RECORDS A WRITE gard TQ 


BE L ON . 

WITH DATA TYPEOUTS SELECTED 
WOULD BE USEFUL FOR DETERMINING 
WRITE ERROR ORIGINS. 


USE OF THIS SWITCH WILL CAUSE 
A BACKSPACE 2 RECORDS. SPACE 
FORWARD 1 RECORD, REWRITE RECORD 

QUENCE T USED INSTEAD 





a a 


uw 
ao 
£ 


Deen 


i 


FERC Oe odo doled vanes 


uno 
ites a} 
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SWITCHES TO CONTROL ERROR PRINTOUTS 
THE FUNCTION PERFORMED IS WITH THE SWITCH IN THE “1” (OR 
UPS POSTTION. : 


SW FUNCTION PURPOSE 
13 BRinvout SOR RURGER and TrBeS OF EMMONS TLL 


Rt eae ER NAPE. aint NENG 
RIOOS OF TESTING LovERNIGHT ETC) 
Y BE SUFFICIENT T EIVE 


PRIM ESTAS PRICE Posen, 


8 PRINT ERROR STATISTICS AFTER CORP LE TION, Of VERY _RECO 
LENGTH SE INSTEAD - AP TE 
END OF TAPE AS IS NORMAL 


TO ALTER TEST PATTERNS 


SW FUNCTION PURPOSE 

0 CHANGE PATTERN AFTER COMPLETION OF A TEST SE- 
NCE REPEAT WITH NEXT PATTERN. 
UNTIL PATTERN 7 IS COMPLETED. 

THIS FEATURE 1S USEFUL FOR TESTING MANY COMBINATIONS OF TEST 


PATTERNS a] eT REQUIRING THE OPERATOR TO TYPE 
NUMBER OF PARAMETERS. 


EXAMPLE : i te PAT o4 ie RLS “? wy 


4 e 5 
WITH =] 
TEST 3 WILL EXECUTED & TIMES (PATTERNS 2-7) 
AND THEN TEST 4 WILL BE EXECUTED 2 TIMES (PATTERNS 6,7) 
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BERR eae 


& 
& 
& 
§ 
& 
& 
£ 
6 
6 
6 


0 0 = 0-0 b= 0-2 + Be 
ODO YIWUlLs ifu-cd 


CRP ERE em uO aReRs 


Be 


CMTrrrowm 
eee 
wre 


o 
wine 
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ERRORS 
WRITE ERRORS 
Ha3 Barr haeine ERROR TYPEOUTS ARE POSSIBLE DURING A WRITE 


A. WRITE STATUS ERROR 
COND STATUS RECORD LENGTH EXPECTED ACTUAL 
THIS WILL OccUR IF ERROR (eit 1S OF COMMAND REGISTER) SE7S 
ON A WR E COMMAND. | ONTENTS OF THE COMMAND AND STATUS 
REGISTERS 1S PRINTED AL BNE WITH THE RECORD NUMBER AND RECORD 
XIRG WRITTEN 4 TIMES 
Bag UR SFESAE BASU TENS 
Pelee GS Gt kL 
IT TEN PROPERLY. 
5 T0 iy "I" WILL DELETE “WRITE WITH XIRG™. 
END OF TAPE 


DRV PaT PAR DEN MODE RECORD LENGTH 
0 C0 800 SSTP 1276 MAX 


ERR 


a 


B22 GaAs 


Bo 


TY 
= WR te. TART/STOP_ MODE 
OF RECORDS 


wt 28 


oO 
2 
Oo 
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READ ERRORS 
THE FOLLOWING ERROR TYPEOQUTS ARE POSSIBLE DURING A READ 
OPERATION: 


R. READ STATUS ERROR 
ex Sratus RECORD LENGTH EXPECTED ACTUAL 


THIS OUR OCCUR WHEN ERROR (BIT 15 o COMMAND REGISTER) 


BRO ster status Tus REGISTERS Ts. PAINTED ALON METH THE RECORD NUMBER 
. READ DATA ERROR 
cond Sratus STATUS RECORD LEN LENGTH GTH EXPECTED Ac cTuaL 
Ba trea REL EARe' oe Ee Oksana EHUD elses 


PRINTED. ALONG 


taicn tT roa bar en ea ee THE 


Q WHICH IT WAS READ (ACTUAL). THIS 


eter ele fo BT RO fs Emon 


- READ PASS 
END OF TAPE 


DRV PAT PAR DEN RECORD LENGTH 
re 1 NST 1276 9 M-MAX . 


READ STATUS ERRORS = 3 
RON RECOVERABLE 50a ERRORS = 0 


ON UNIT 3, USING PATTERN 4 ODD PARITY, CORE DUMP, READ MODE 
tet OF VARYING LENGTH (4 TO 4.001024) WERE 
Aine Tra ME athe oir ! para 
SOPERGELE ERRORS WHICH 


inojcate 5 That THAT Tie STATUS, AO DBT ' ag WERE ELIMINATED BY 


PALO MSEC IRRE ORES 
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SESE SESS 


0-6-6 


~~ 


ONWUIC Wtu- 2 


NNINNNINININGS 
= 


nm 
~ 


RASS TRH ESSHSSOSRATO RESET 
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6.3 ERROR RECOVERY PROCEDURES 
6.3.1 WRITE ERROR RECOVERY 
Te Proc PURE TO RECOVER FROM A WRITE ERROR IS DETERMINED BY 


A. IS IT A “WRITE ONLY” TEST OR WILL THE DATA BE READ? 
B. IS “WRITE STATISTICAL RECOVERY” SELECTED (SW 6=1)? 
C. IS “DELETE WRITE WITH XIRG” SELECTED (SW S=1)? 
6.3.1.1 IT_I “WR TEST “WRITE STATISTICAL pp lal 
IS hor SELECTED (SH 6-0) The URYTE ERROR 18 SIFPLY COUN 
AND THE EEDS TO THE NEXT RECORD 


6.3.1.2 RECOVER IT I te ee Ec Rh coireeas we. 1 U3 TATISTICAL 
A RECOVERY v SOUENGE{ BACKSPRCE’ 2 RE HR oRbS SPAC: FORWARD. 1 RE RECORD. 


SAPD ir he Uh pe en “a 
Ca as SLR 
Oo Pacha Rett a Pine tae 
Pik 8 Ms Bia oi he Ss 


AT THIS POINT baer RESULT IN A READ 


6.3.1.4 IF IT IS A “WRITE AND READ” TEST AND “WRITE STATISTICAL RECOVERY” 
EEIVoPE Hiker Mh easier ttt 
REC WITH HNTERRECORD. GAP GAP. FAILURE TO RECOVER SHOULD 
RESULT IN A DURING READ PASS. 
6.3.2 READ ERROR RECOVERY 
Bo eT ROSE RSG Io TOREN ei ee a pele 
WI IST OF TAY! nt PAO The RECORD UP 
Gee Soe e Ua ere nee 
RECOVERABLE” BN BN tHe ERROR Pes TINGE uf THE NEXT RECORD. 
7. RESTRICTIONS 
_ NONE 











~ 
® 
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Ba8s 





FREE 





Siete ietat sree te 
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MISCELLANEOUS 
TAPE LENGTH 

SINCE EACH OF THE TESTS DEPEND ON REACHING THE “EOT™ REFLECTOR 
ae eN Cay tar ante I it 

1S NOT INTENDED. T MPLY THAT C LY ei Kane 

PARAMETERS coneT TUTE ) HORE BirelouT TEST @ TEST OF Rep 
REFLECTIVE: noted ae RIPTELY 5) FEET DOM Th A Fear re “BT” 


TILL USEFUL AS A 
ANOTHER “Born BE A SHORT DISTANCE (APPROX- 
IMATELY 10 FEET) F ON TAPE. THIS WOULD EFFECTIVELY 


GIVE "HARE T WHEN MOUNTING THE TAPE 
TO Boss tron Yar THE PR 1 5BF OER 
MEMORY AVAILABLE iy 
GRAN REQUIRES 4K OF MEMORY. IF 
STATING T SS 200 OR 
ER eco. SO THAT i NIMUM LENGTH 
8 Sere AND MAXIMUM LENGTH RECORDS WILL 
PROGRAM DESCRIPTION 
GENERAL DESCRIPTION 
THE PROGRAM Is Sefiey oF nin AR TWO MAIN SUBROUTI NES “WRITE™ AND 
SELECTION. Farin! POST TIONING. 
Pal POSH ENE ee BR SER eae 
NUMBER 15 Ma of ED EIRET BRD WHEN THE SEQUENCE I 
X Cone SELECTED UNTIL ar igh $ HAVE 


VAILABLE, 
ILL EXPAND THE WRITE 
CORDS WILL BE 


fw 
marek 


TEST O . 
THIS IS A “WRITE ONLY” TEST. THE PROCEDURE IS TO WRITE 1 RECORD, 
REPEAT Hy: ALL UNITS a COO UNTIL EQT. wat MODE OF NONSTOP 
(WMO=0) -WI bb wr Be Ay Fr Bective SELECTION FOR THIS TEST BECAUSE 
THE WRITE R ue XITED AFTER EACH CORD TO CETERMINE IF 

* ANY OT S ARE SELECTED. READ MODE (RMO) HAS NO EFFECT ON 
THIS TEST. 
TEST 1 


THIS IS A “WRITE ONLY" TEST SIMILAR TO TEST O EXCEPT A SEQUENCE 
OF 2S&6 RECORDS IS WRITTEN ON EACH UNIT BEFORE CHANGING TO THE 











a ee cn eee ee + 
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809 NEXT UNIT. READ MODE (RMO) HAS NO EFFECT ON THIS TEST. 


es oe 0 ee eee ee 
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TES. 2 


RECORDS On Enh UNIT, Then BREKSpRGE 2b RECORDS Gy En UR 


UNTIL "ALL GNI TS” ARE gS tor 

TEST 3 

THIS IS A “WRITE AND READ” TEST. THE PROCEDURE IS TO 
1 RECORD AND REPEAT F 


BAC 

Recent THE SEOUENCE f Ont ful UNITS ARE AT EOT. 

RE NONSTOP =0 OR RMO=0) WILL NOT BE EF 
FOR THIS TEST. 


TEST 4 


unis sitet ce HEYMED EET my TEST. 


WILL PROT BE “ir TIVE FOR THIS TEST. 
TEST § 


THIS IS A “READ nS TEST. 
a 


TA TAPE. ANY OF THE OTHER TESTS (0 THRU 4) 
CAN BE USED TO GENERATE THE DATA. 


LISTING 


ee 
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= 
3 
Bes STATUS AND COMMAND REGISTER BIT ASSIGNMENTS 
Bae COMMAND REGISTER 
Bee 1S ERROR 
88 14 DEN 8 00 = 200 BPI 7 TRACK 10 = 800 BPI 7 TRACK 
859 13 DEN S O01 = SS6 BPI 7 TRACK 11 = 800 BPI 9 TRACK 
860 12 POWER CLEAR 
bbe ll PARITY - 0 = 000 EVEN 
10 UNIT SEL. BIT 2 
ged 3 UNIT SEL. BIT 1 
es $I BT Pay 
eee 6 NYERRUPT NABLE 
870 5 ADDRESS BIT 17 
871 4 ADDRESS BIT 16 
872 3 . FUNCTION BIT 2 OOO = OFF LINE 100 = SPACE FORWARD 
873 : 1 = READ 101 = SPACE REVERSE 
874 e FUNCTION BIT 1 O10 = WRITE 110 = WRITE XIRG 
875 1 FUNCTION BIT O O11 = WRITE EOF 111 = REWIND 
876 0 GO whi 
877 
878 
879 7 STATUS REGISTER 
Bae 15 ILLEGAL COMMAND (ILC) 
883 14 END OF FILE (EOF) 
884 13 CYCLICAL DUE ERROR (CRE) 
BBP le PARITY ERROR (PAE) 
887 11 gg LATE Ape) 
888 10 ENG OF 
Bea 3 CORD lf 1H ERROR (RLE) 
891 8 BAD TAPE ERROR (BTE) 
892 7 NON _EXISTENT MEMORY (NXM) 
Bae 6 SELECT REMOTE (SELR) 
895 5 BEGINNING OF TAPE (BOT). 
896 4 7? CHANNEL (7CH) 
ath 3 SETTLE DOWN (SDWN) 
e fs, 
si ja iat 
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. TITLE TM-11 DATA RELIABILITY 7 T 


HREVIGeS sePt Tor 4: aber ar Ear CORP., MAYNARD, MASS. 01754 
LACEY 


AUGUST 1972, J 
REVISED FEB i976, RON PLATURTS 


Seueeon 8 


5; RRAAAEARAAAA LARK LAA RAAEL ALLL ALAA RELA RE LAAA LALA ARERR ALE LLLLE 


‘otey me PROGRAM HAS BEEN MODIFIED TO WORK WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER _ 


Soheviutaicasiaiieebiemnuisieadalamamenimmmmemael 


OODODDWWUOW 
Os bb eh 
WO IWU-£WIlMH-O 


5 ERARARRELALAL RELA LAL ALA RE LLLERLELE 


SOFTWARE SWITCH REGISTER LOCATION 
| SELEAEEEESEEEORSESEERENEDEEEGS 


$20 
$21 
See 
S23 
S24 
925 
$26 
927 
$28 
$29 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
340 
941 
S42 
943 
S44 
' OS 
S46 
947 
948 
949 
950 
951 
95e 


BRReS 





MACY11 27(732) 10-SEP-76 12:19 PAGE 24 


GisrLay: 17870 
1 ee 
re 
MAXLEN: 1024. ;MAX RECORD er 


, RECORD LENGTH 
BUFFER stn Ag ADDRESS OF WRITE BUFFER 
SE FERvIOEN. ;STARTING ADDRESS OF READ BUFFER 


MTV: 
STACK=S00 
ompers 4 STORAGE AREAS 


\ 


000000 
ee 
a 
000000 


972 
974 
375 
976 
977 
978 
979 
980 
981 
982 
983 
984 
98S 
986 
987 
988 
989 
990 
991 
932 
993 
994 
995 
996 
997 
998 
939 
000 
001 
002 
003 
004 
5 
008 
0093 


000666 DRVADR: 
000732 
000776 

001042 


he 
Oo000 
meee 
WwrurO 
44444 
Feateetestsr) 
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1014 000656 001106 DYTAB 

1015 O00660 001152 DSTAB 

1016 000662 001216 DETAB- - 

iB 000664 O0lebe 07TAB 

1 ig 000866 00 DOTAB: O 

1020 000732 » =DOTAB+44 

1021 000732 000000 DiTAB: O 

1028 000776 aon g701 TAB 

1953 000776 PLONE  epeTaB+H4 

1025 oo1042 900000 p3Tas: 06 

1026 001106 .2D3TAB+44 

1027 001106 00000 pyTAB: 0 

1968 1 =DYTAB+44 

1 001152 pstas: 0 

1030 - 001216 .=DSTAB+44 

1031 001216 o00000 DETAB: O 

1032 001262 .=D6TAB+44 

1033 001262 000000 o7tas: oO 

1034: 001326 .=D7TAB+44 

1035 001326 000000  CHARIN: O ; CHARACTER JUST INPUT 
1036 001330 000000 TST: O NBER. OF TEST 

1937 001332 000000 PARAM: 0 iTecT RAMETERS 

1038 001334 o00000 TSTEX: 0 ‘POINTS TO TEST PARAMETERS TO BE EXECUTED 
1038 001336 000000 TEST: 0 CONTAINS CURRENT TEST NUMBER 
1041 001340 oo0000 TSTTBL: 0 TEST TABLE 

1042 001342 900000 . 0 :UP TO 10 TESTS CAN BE SELECTED TO 
1043 001344 o00000 0 3BE RUN IN CONSECUTIVE ORDER 
1044 001346 o000000 0 

1045 001350 o00000 0 

1 001352 000000 0 

1047 001354 900000 0 

1048 001356 000000 0 

1049 001360 o00000 0 

1050 001362 000000 0 

1051 001364 000000 0 

ies 

1054 001366 Oo 2706 oo0s00 AUTOST: MOV aSTACK SP 

1055 001372 012767 177777 177150 - MOV #-1, ATS 

1056 O01400 012767 036225 177732 MOV #36225, TSTTBL 

- 1057 001406 012767 gy07se 177726 MOV wi0?ee,  TSTTBL+2 

1058 O01414. 012767 O27 177722 MOV #27752, TSTTBL+4 

1059 .001422 012767 000003 177700 MOV #3, NUMTST 

1060 001430 012767 123456 005752 MOV wlesH5b, LON ;PRIME RANDOM NUMBER GENERATER 
1061 001436 012767 176543 005746 MOV 76543'H 

1062 DETERMINE THE size OF tHe WRITE AND READ BUFFERS. 

1063 OO01444 012737 O01462 oOD0004 MOV NXMRET, 084 SETUP NXM VECTOR 
1064 O014S2 005767 O22272 TST BUFFER+096. ‘OVER 4K OF MEMORY? 
1065 601456 o00240 NOP 

1066 O01460 000413 BR OVERYK R IF YES 

1067 OO1462e Oe2b26 NXMRET: CMP isPiee (SP)+ BOP. THE STACK 
1068 OO1464 012767 OD0004 177036 MOV #4, MINLEN 

1063 001472 012767 002000 177026 mov #1024, , MAXLEN : 
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1070 001500 012767 015750 177026 #BUFFER+1024. , RBUF 
1093 BOLeIe Ole? QO0010 177012 OVERYK: F #8. , MINLEN ends res Aces: 

a} 

ig? 001 ig BLSee 5 stad 17708 : 12048 AX XLEN 
1074 OO01£24 012767 017750 #BUF 8. afaXLen RBUF 
1075 2 SDETERMINE DRIVES io BE TESTED. 
10 °A DRIVE WI . IF 
1 : , LECTED 
1078 ; T K 
1079 : 3. IT IS WRITE ENABLED 
1 001 012737 0000068 op0004 tu.SEL: Mov #6, ae SET TRAP CATCHER 
tbe vats BasaGs 0 He000 iaght OCR #18900, anTc CLEAR DRIVE TABLE 
1083 pptees ? 1oob0e CLR vas F 
1084 001556 012700 MOV #200, RO ;RO=DRIVE 0 
1085 001562 105777 176714 TSTB = ANTC as 
1086 001566 0033 BPL IDSELF :BR IF Ng cu ROY 
1087 001570 016777 176756 176704 NXT.TU: MOV DRVSEL, aMTC sSELECT 
1088 ‘pOIS76 Ole70e p00024 MOV #20, ,Re Re ay art LOOP 
1089 001602 O32 000100 176670 USSTST: BIT #100; aNTS oes ORI ve EXIST? 
1090 O01610 001003 . BNE uSS.OK 
1091 O016le 005302 DEC R 
1092 001614 003372 BGT USSTST 
1093 001616 O0041e BR NO. SEL sDRIVE IS NON-EXISTENCE 
1094 001620 032777 O00020 176652 USS.OK: BIT #20,aMTS st. 1S THIS DRIVE 7 OR 9 CHN? 
1095 001626 001405 EQ NO. SEL IF 3 CHN. 
1096 001630 777 OO0004 176642 BIT #4, IMTS is WRITE LOCK ON? 
1097 001636 002 BNE IF YE 
1098 001640 050067 176714 BIS RO. MSBITS jPUT DRIVE INTO TABLE 
1099 001644 105267 176703 NO.SEL: INCB DRVSEL+i INC. THE DRIVE NUMBER 
1100 001650 o00241 cle 
1101 Oo 1b5¢ 006000 ROR RO ;HAS ALL DRIVES BEEN TESTED FOR EXISTENCE? 
110 1654 001345 BNE NXT. TU BR IF NO 
1104 -TYPE-OUT NAME OF PROGRAM AND MIN. AND MAX. RECORD LENGTHS. 
1105 001656 012702 013105 IDSELF: MOV #MSG10A,R2 
1106 O01662 104404 TOP 
1107 OO1664 016702 176640 MOV MINLEN, Re 
1108 001670 DECPRT sPRINT MIN. LENGTH 
1109 001672 016702 176630 MOV MAXLEN, R2 
1110 O01676 104426 DECPRT ;PRINT MAX. LENGTH 
1111 001700 005767 176654 TST MSBITS WAS BNY DRIVES SELECTED? 
lille 001704 o01002 BNE +6 ‘BR I 
i113 001706 000167 000160 IMP START :NO--GO "RAVE OPERATOR SELECT DRIVES 
1115 sTYPE-OUT THE DRIVE/S TO BE TESTED 
1116 001712 012708 013201 nov #SG10B, Re 
1118 0017 8 1peae? 012024 eS CORE BUFFER 
1119 001724 0612701 013750 MOV #BUFFER,R1 
1120 001730 005 CLR ;SET RO TO DRIVE : 
ilel 001732 . 012702 oo0200 MOV #200, R2 SET Re TO DRIV 
1123 . ;FORM AND SAVE DRIVE NUMBER FOR TYPE-OUT 
1124 001736 {05021 CLRB «(RL J+ ;SET EOM 
1125 001740 412721 OO0O4O.. - MOVB ow’ (RL + : SPACE 


me ee eee oo 


rad 
Ze. 


0+ 0-0-0 -- <0 -< 9 © 8 -- 9 = = 9 + 9 


0 0+ O-+ brs 0-2 B-+ B= & = + B= b= & #6 O02 — O-2 b= 2 P= & <0 -= b+ 6 8 = Fb = BB 2 B= + 2 B= 2 0-0 b= 9 + B-2 9-2 B+ 9-2 9-0 0 0 Bo fo po 


SRE REN PRERI AAA Aba RR AA Unb iaL aoe te eat tori iar in vaRt er ra 











2B 
o--4 
~-D 


“3 
a 
£ 


Sune 


gegeaseese 
o 


se 


Ccscnccsvaasscue Gn es 


002206 
002214 


Togen 


Peewee Sas 


: 


— -— = 
| 


: 


ror 
ao 


RBBRB 

o-iNe 
ry 

NNE™N 


nue 
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176610 
Bee084 
000007 


00109 
13750 


176514. 


176376 


000734 
000970 


, 176502 


176472 
176472 


176455 
176446 
178446 


005302 
005276 


177170 


177140 
177130 


176310 


177102 
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R2,MSBITS :DID THIS DRIVE NUMBER EXIST? 
SZEROS :BR IF NO 
RO, (R1) tYES=-SAVE THE NUMBER 
8° 0, (RL)+ “MAKE IT QSCIT 
a’, (RL)+ > COMMA a 
a :POSITION DRIVE B17 
RO :UPDATE DRIVE NUMBER 
RO, #7 LAST 
LOOPER ‘BR IF NO 
(Rl) :SET EOM 
#’3,-(R1) :CR & LF 
#BUFFER, R2 :TYPE THE DRIVE/S SELECTED 
IMP EXECUT “GO START TESTING 
RECORD LENGTHS AND BUFFER AREAS FOR YK. 
MOV #4. .MINLEN q 
#1024. . MAXLEN 
sGUFFER* 1024. , RUF 
LENcTHS AND BUFFER AREAS FOR ek. 
#8. ,MINLEN 
s204e. N 
sGUFFER*Z0NE. , RELF 
ATST ;NOT AUTO START 
aSTACK, SP INITIALIZE STACK 


MSBITS :CLEAR SELECTED DRIVE INDICATOR 
#15, CHARIN sWAS CHARACTER A CARRIAGE RETURN? 
MSBITS YES, WERE ANY DRIVES SELECTED 
STRAT :NO | 
SELIST sYES NOW SELECT TESTS 
i RWARIN ;1$ CHARACTER A VALID NUMBER 0-77 
seibe :NO, PRINT "2" 
#60. CHARIN :TS'CHARACTER A VALID NUMBER 0-77 
vaLt{D YES 
aTPS 
74 
8’? aTPB :PRINT °?° 
AaL4 

ORIVE NUMBER 
#270, CHARIN :MASK OUT NUMBER 
8200, RO s INITIALIZE BIT POSITION FOR DRIVE 0 
CHARIN NAVE ORIEN OF ERURL TO ZERO 
RO ‘HOVE BIT ES TEON fo Nest ORIVE 
VALI : TRY AGAIN 








8123456,LONUM ;PRIME RANDOM 
#176543 HINUM =; R GENERATOR 
eMSG1,Re 

sPRINT ‘SELECT DRIVES’ 
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176306 : BAe 50 SBITS ;COMPARE DRIVE SELECT WITH PREVIOUS SELECTED 
176300 wo ;ORIVE WASN’T PREVIOUSLY SET, SO SET IT NOW. 


Vv 
176272 . ei RO. MSBITS sDRIVE WAS SET, CLEAR IT. 
176230 : ist ates 
00054 &’, ,aTPB ;PRINT COMMA 
BR SELORV :RETURN TO WAIT FOR NEXT KEY 


aS 


iy IW 
s 


“HAVE DRIVES SELECTED-NOW GET TEST SELECTION 
SELTST: MOV 8MSGe, Re 
OP sPRINT’SELECT TESTS’ 


s CLEBR Test NUMBERS SELECTED 
SINITIALIZE TEST TABLE POINTER 


;WAS CHARACTER A CARRIAGE RETURN? 
;WERE ANY TESTS SELECTED? 


sNO 
IMP ‘YES, EXECUTE TESTS 
SELT2: cn 6 :1S CHARACTER A VALID NUMBER 0-5 


TS CHARACTER A VALIO NUNGER 0-5 


0 0 0 + 9» 0+ 9-0 9 po ho pp > 
aed ond gud ond ond ond od ond od od el iit 
Wits bet tii tatittet eiritr bet att pt aor 

: 
~ 


¥ 


SELT1: 


2 
8 


BSR 
oR 


SELT3: 


1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SEURA ERE 


;RETURN TO WAIT FOR TEST SELECT 


BR 
SELPAT: 
S ;ROTATE TEST NUMBER INTO POSITION 


RY 
#107777,R4 
SP3 -TYPE 3 SPACES 
sHAVE VALID TEST SELECTED, NOW GET SELECTED PATTERN 
176674 P #70 CHARIN :18 CHARACTER A VALID NUMBER 0-7 
176664 cH Be Gennin :IS CHARACTER A VALID NUMBER 0-7 
 $MOVE PATTERN SELECT INTO POSITION 


tururururu 
>-2b--b- 6 op 
woDmnou 


ed ee ee ae oe 


SSRN 


- GHARIN 
176644 _ $170777 , CHARIN 
CHARIN, RY . COMBINE PATTERN WITH TEST 


TY SELECTION (O=EVEN, 12000) 


176626 #60, CHARIN :1S CHARACTER=0 
L YES EVEN PARITY 

176616 861, CHARIN IS GHARACTER=1 
SELT3 _. NO, HAVE ILLEGAL KEY 

#400, R4 ‘YES, OOD PARITY 


a 


eet ee et et ete 
SRRZORE 





Z 


y 
3: 


ieveeareyaey id 


o 


a aoe ee 


a 
£ 


ee 


PATI 
Saas Se 


R 
2 
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Pll 


176876 
176566 


176550 


«178832 


176512 


176502 


176464 


176446 


176426 
176416 


176400 
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;WAIT FOR DENSITY SELECTION 
WAITKY 


spe CHARIN 
BEQ ELON3 
CMPB EE CHARIN 
i100 is 
oan rai a etn 
deo 


SELDN3 
SELDN2: CMPB ow CHARIN 


SELON: 


31S CHARACTER=2 
: YES DENSI TY=2008PI 
18 SHARACTERSS 


T DENSITY=SS6 BPI 


31S CHARACTER=8 
;SET DENSITY=800 SPI 


its CHARACTER=C 
HAVE ILLEGAL KEY 
SET CORE DUMP M ODE 


SELDN3: 
;WAIT FOR RECORD LoncTH SEQUENCES SELECTION 


I #60,R4 
SELR3: SP3 
;WAIT FOR WRITE MODE SELECTION 
CMPB HoT ENARIN 
BEQ SELNe 
CMPB  s- #61, CHARIN 
BNE SELL 
BIS #4, R4 
Sele 
SELW1: CMPB &62 CHARIN 
SELt 


#10,R4 


CMPB = =s« #60, CHARIN 
CMPB) = =s_-«- #61, CHARIN 






:IS CHARACTER=0 
YES. RLS=MIN 
tIS CHARACTER=1 


;SET RLS=MAX 

;IS CHARACTER=2 
;SET RLS=MIN-MAX 
31S CHARACTER=3 
;SET RLS=MAX-MIN 


;SET WMO=NONSTOP 


;SET WMO=START-STOP 


. ;SET WMO=RANDOM 


;SET RMO=NONSTOP 


;SET RMO=START-STOP 





b= b-- b= b= pb 9+ B= 9 © 9 Hp Bmp He 


SERRE ESSE SRAS o 


CJWIWWOI WWW) 
0 = 0 
WONWU COITUH-O 


: 


sees 


8 
3 


8 
a 


cs 


N 


Fee e URE ERE SENT ReS 


Ce Sitoccoss: casei: i 


? 


B= bb BD 0 = Bo he bs & 2 DB 0 BP + 2 & 2 OH bh hh 2 bo Ho BO 
wr 


sess aes 


S555 
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77364 
oode 


012611 


000015 
177332 
175462 
000012 
17544u 


000040 


Sy MD 


EH 
12564 


175524 

1340 
176200 
176170 
T6164 
010000 


000001 


ie 


001000 


176300 


17S4S4 
175440 


176230 


17bin4 


175260 


176052 


MACY11 27(732) 
BTS 
SELRM2: gis 
;HAVE ALL PARAMETERS 
3 MOV aS 


SELOK1: MOV 






SELT3 
#e,R4 


G6,Re 
WAITKY 
nip, CHARIN 


SELT3 
aTPS 


;EXECUTE SELECTED TEST 
MODES 


EXECUT: CLR 
CNTL 


MOV 
EXEC: MOV 
EXEC1: ae 


bone 


TOP 
CKSW 
BIT 
dy 
V 
BIC 
CMP 





Stat Tet TSTEX 


TEST4Y 
sRETURN HERE AFTER COMPLETION OF TEST 
: MOV #MSG30,Re 


ae 
RO 
oo. 


1000, PARAN 
EXEC] 
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;SET RMO=RANDOM 


;PRINT “OK” 
;WAIT FOR CARRIAGE RETURN 


;+1 TO TEST COUNT 


INO, ACCEPT NEXT SET 


; INITIALIZE MODES 


;GET TEST PARAMS 


;IF BIT O=1 REPEAT ALL PATTERNS 


;REACHED PAT 7 


~ 
‘oD 
~ 
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¥ 
Be FES ce Be ua 
oooo42 ase, Re 
BNE ENDADR 


PC, (2) 


EY 
wig BS 


ee 


;FINISHED ALL TESTS 


“JS 
hee 
tJ 


#2, TSTEX 
EXEC D0 NEXT TEST 


b= P— — 6 Pp 0 = p+ = & <8 = p> PB 


ico cue oe" H 3 ae eee EVERY RECORD, NO READ PASS 
CLRALL pi ERROR Coun OUNTERS AND REWIND 


& RSrorY CET DRIVE SELe Behe Ct iON TO LOWEST NUMBER» 
TOA: ; MVCTRS Rea ORE DRIVE COUNTERS 
wid MODES il NES, Prete AT EOT? 


WRITIT 
SVCTRS 


; 


PH be Re he 


op 
N£&OO 


ae ie ee aia 


| 


: 


swat DRIVE COUNTERS 
CHGDRV sANY MORE DRIVES SELECTED? 
- JSR PC, ALLEOT "ARE ALL DRIVES AT EOT? 


TO. ; 
JMP DONE ;YES, EXIT 


ee 


sTEST 1 
WRITE RECORD LENGTH SEQUENCE, GO TO NEXT DRIVE, CONTINUE TO EOT ON ALL ORIVES. 
tEST1: BIS i 1, MODES XII WR Canon COON RLS, alo READ PASS 


QUNTERS AND REWINC 
‘eer Drive 
Tl: RECTION TO LOWEST NUMBER 
TIA: REST bre OR COUNTERS 
#40 , MODE ees THIS AEE AT EOT? 
sWRITE 
tev DRIVE COUNTERS 
srany MORE DRIVE SELECTED? 
; ARE ALL DRIVES AT EOT? . 


YES EXIT 


pal hee = SEOUENCE bode arg 2 hes ON ALL DRIVES 


QUNTERS’ AND 
; Renate Pe 
Te: CTION TO LOWEST NUMBER 


3 as id ay oe 


#27 


2 
suits 


i Reais En ee Bees 
eee 


1 
1 
1 
2 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


REGIS SE IRA LS Os GRR EH a lolol sald 
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140 003466 104402 ste ; oe 

tbs Besos 8 128: RUSORY Ene NRIVERS SELECTED? 
iu0 Sao van Tec Rs Tee TRS RIVE RS 

141 OOse0p 032767 000020 175138 = BIT — #20,MODES a We BO Af oT? 

1413 BOSe10 DONTE? O0S206 ae Be WD KsPaG E 

1414 oasel4 IOs cvetae ae PACE COUNTERS 

1¥is 16 1 T20: a CHGORY ANY MORE DRIVES SELECTED” 

141 passes 14 T2E: MVCTRS YES, ra Rat OUNTERS 

14] ooo020 175112 BIT #20, MODES 15. TH 

rhe fen 001001 BNE ToF ’ 

tis? 1 TOF: READ | HERD amiss COUNTERS 

14a2 1044 CHGDRV "ANYMORE DRIVES SELECTED? 

1423 oe 00076 . BR Tee :YE 

14 4 767 001264 J PC ,ALLEOT ARE ALL DRIVES AT EOT? 

tee 003652 000167 177436 - IMP DONE YES EXIT 

14 

iiss + poooce srsoco ELLE OME. RECORD, CHANGE DRIVES, BRCKSPACE, CHANGE DRIVES, REED, CHRNGE DRIVES 
1431 ppseee rated CLRALL Se ERR “COUNTERS AND REWIND 
1432 003566 104416 GENPAT GE 

1433 003570 104410 | 13: RSFDRV SET OF RAT awe TO LOWEST NUMBER 
1434 003572 104414 . TA: MVCTRS *RESTORE DRIVE COUNT TERS 

1435 003574 7 000040 175042 BIT #40, MODES 15. THIS DRIVE AT 

1436 003602 001 BNE T38 YES, SKIP WRITE 

1437 003604 guage WRITIT SWRI TE 

1438 003606 1 : SVCTRS i SAV & DRIVE COUNTERS 

1439 10 104422 T38: CHGDRV *ANY MORE DRIVES SELECTED 

14a 003612 000767 BR T3A YES 

tuus 003614. 1u4414 T3C: MVCTRS RESTORE DRIVE 

1443 036 1p 7? 0900020 175020 BIT #20, MODES Hes DRIVE AE 

1s 003626 004767 005070 man ISR BC, SOBKHO he 

tie ied tae ° SHEDRY i MORE BRIVES § O EerectED? 

we eet tae T3€ = MRCTRS COUNT gS 

14S0 poseue G3e767 000020 174774 fo: aoe #20, MODES iS°THis ORIVE A NOR 

1461 o 1001 BNE Ta ‘ 

1425 rita a THF: Betis ay DRIVE COUNTERS 

1468 003656 bee HGDRV ‘ay MORE DRIVES SELECTED 

tee aou7e 001146 FER Pe ALLEOT ORE ALL DRIVES AT EOT? 

1457 00 BR T3 :NO 

1458 003670 000167 177320 MP DONE :YES, EXIT 

1460 ; TESTY 

1461 ;WRITE RECORD, CHANGE DRIVES, REPEAT FOR RECORD LENGTH SEQUENCE 


4 


ee ee es « - 


PES 6 kt se EELS, 1 AON le oR yD EE “ST SAR AS EL SN 


nF 
ao 
22 
—D 

a 


o> b= 0+ bh Fh Bs pe 


SCECE RIES 


8 
geese 


~ 
£££ 


PS 


Be 
rT 


+ 


RESCH RSEIRRE 


oe 


= 
= 
~ 
ra 

a! 


c 
4 


: 


SESeSR 
ai 


snare 


tne & ce CREE EEE EE 
pirstetatate: 
o 


ininanarnrwr 
NOW SWE 

geseereees 
ERSERERBRSR 
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;READ RECORD, CHANGE DRIVES, REPEAT FOR 


Tog poo +174742 TESTY: BIS Bb RQDES eel 1 WIE ob VERY RECORD, DO READ PASS 


G32 000014 175422 BIT 14, aTSTEX 
990007 174722 IC 17, MODES 
? 174714 . Is a5 MODE S sEXIT WRITE frie COUNTERS 6 29 
iia THe ReeoRy ey 0 ORiVE.§ SELECTION 19 b FENIND NUMBER 
Ole 7s? 174662 174662 "MOV RECORD, MRRECR * SAVE ¢ 
e HORY le Sirvee CEPR eD? 
att 000010 174664 BIC #10, MODES ce E RLS END 
104410 THC: RSFORV ;SET ORIVE SELECTION TO LOWEST NUMBER 
04414 THD: MVCTRS if $10 ORE ORI VE COUNTERS 
767 000040 174652 BIT #40, MODES i or 
601019 BNE T : fh a 
O16 174626 174560 MOV MRR GR, SVRECR sSAVE_ST 
016767 1745S2 174614 MOV SVRECR, WRRECR REST TORE START OF RLS 
104408 SvcTRS :SAVE DRIVE COUNTE 
l : THE: - HGDRV ; ANYMORE DRIVES CTED? 
Gae7er 000010 174616 BIT #10, MODES ‘ARE WE AT END OF RLS 
rey TUF MVCTRS #RES TORE aPRIVE, COUNTERS 
7? Q00040 174604 BIT #40, MODES EO 
paroe 4 BEQ THC 
104422 CHGDRV ee : DRIVES SELECTED? 
000771 BR THF :YES 
104410 TYG: RSFDRV T OR ECTION 19 TO LOWEST NUMBER 
see7e7 ponozo 7wsey grt = Wn RG Le ate on 
tue OE ny, FR BiusgBO 
Ibses : a ENGORV 3 “BRAVE, couvrens S SELECTED? 
194410 THK: RSFDRV oe DRIVE SELECTION 10 TO LOWEST NUMBER 
14 THL: MVCTRS ST DaIV COUN 
7? 000020 174536 BIT #20, MODES iRE THI A one 
001 BNE YES, SKIP READ 
iiss 174514 174506 cH R, RECORD ;HAVE WE READ LAST RECORD WRITTEN? 
tb 7E> 174504 34 MOV LASRCR, SVRECR SAVE LAST RECORD 
? 175176 BIT #3, PARAM IS READ MODE NONSTOP? 
140s BEQ : YES 
16767 174462 174464 MOV RECORD, LASRCR 
005267 174460 INC ASRCR s+1 TO LAST RECORD WRITTEN 
04424 THM: ADIT *RE 
16767 174404 174450 MOV SVRECR,LASRCR RESTORE LAST RECORD WRITTEN 
SVCTRS *SAVE DRIVE COUNTERS 





be ee - 
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i 162 sousee THN: ~ HGORV eer DRIVES SELECTED? 

1 1 i TUP: MVCT : UNTERS 

1521 158 Gee? 7? 174434 174426 CMP UMSRER,RECORD OEE APNE SPOR 

1522 176 001336 BNE THK 

1523 1044 2 * CHGORV ANYMORE DRIVES SELECTED? 

iss 04 004767 000624 JSR PC ,ALLEOT 4 ALL DRIVES AT EOT? 

tes Gb? EBLE? aver He ide Ws,exr 

1529 TESTS 

1 READ ONLY 

1531 *RANDOM PATTERN INVALID EXCEPT FOR SPECIFIC CASES 

1532 oo04216 OS2767 o00002 174420 TESTS: BIS #2, MODES 

1833 pouces 10920 cCAALL LER, ERROR COUNTERS AND REWIND 

1535 opus 012767 177777 o00e40 TS: MOV ay TEFLAG "ENABLE EXIT FROM WRITE ROUTINE 

1536 OO4e36 104402 WRITIT *ENTER WRITE ONLY TO INITIALIZE RECORD SEQUENCE 
1532 ores : ? 000010 174376 BIT #10, HODES ifs WE AT END OF RLS? 

1539 256 767 001404 ISR PC, TESINC SEE IF RECORD LENGTH SHOULD BE CHANGED 
1540 004254 16767 17aav4 000216 TSA: HOV RECORD, TSINC | 
154e SOaSeE poster hoodie 174350 TSB: ste aid MODES s INDICATE AT START OF RLS 

ea en ieee se Res TRS teens OBES Oe meen 
1eu6 300 : 76 000020 174336 ‘ BIT #20, MODES i 18 THIS BRIVE AT EOT 

1547 004310 016767 174310 174312 MOV RECORD,LASRCR ” 

1548 OOus16 066767 0001S6 174304 ADD TSINC, CASRCR § ;CURRENT RECORD + SEQUENCE LENGTH 

teeg po4aee © iouuee TSD: CHGDRV t BNYHORE DRIVES? 

1551 320 "BR TSC *YES 

es fas ipl re mre eB Bedi “cpieng Loves mace 
ies $6 : 7 000020 174300 ; BIT #20, NODES j15_THIS DRIVE AT EOT? 

1556 OO4346 016767 174256 174206 MOV LASRCR,SVRECR SAVE END OF RLS RECORDS 

a i a Ai CC 

1559 004364 016767 174234 174236 MOV RECORD,LASRCR  ;NEX READ 

1560 ooze opse6/ 174232 and INC LASRCR is IT READ AFTER ONE RECORD 

1562 016767 174156 174222 "MOV SVRECR,LASRCR ;RESTORE END RECORD 

1563 104406 SVCTRS : DRIVE COUNTERS 

156i pow419 104422 TSG: “- CHG sANY DRIVES? 

1566 gow 767 000414 JSR PC ALLEOT sai AT EOT? 

1 167 176566 IMP 

ee es re Rey hate guezi fa unas meen 
1571 bow se 6767 174166 174170 : MP RECORD,LASRCR  j RE at ENB 6 OF ae 

1573 BIC #10, MODES ‘YES, 


004442 O42767 OO0010 174174 


NS ee = a nn 


TM=11 DATA RELIABILITY 7 TRACK MACYL1 27(732) 10-SEP-76 12:19 PAGE 35 
DZTMCC.P11 ¥ 

1574 22 TSK: . a CHGORV sANYMORE DRIVES SELECTED? 
is ae? 000010 174162 . BIT #19, noes sAT END OF RLS? . 
1 ugY 7? 000344 - JSR PC, ALLEOT "ALL DRIVES AT EOT? 
1579 004470 000657 BR TS : 

1 ? 176516 MP DONE YES, EXIT 

1 TSFLAG: 

] TSINC: 

1284 

1 -SAVE DRIVE RECORD AND ERROR COUNTERS 

1585 gousde 904767 000030 SVCTR: JSR PC, CTRDEX 

1586 12021 SVCl: MOV (O34. (1)4 

1587 004510 022700 oo0e4s CMP #ORVADR, RO 

1588 004514 001374 BNE SVC1 

1589 004516 000207 RTS PC 

1590 -RESET DRIVE COUNTERS BACK INTO PROGRAM 

1591 govs20 004767 000012 MVCTR: JSR PC, CTRDEX 

1592 012120 MVI: | MOV (134, (0)4 

1593 004526 022700 O00646 CMP #ORVADR, RO 

1594 004532 001374 BNE 1 

1595 004534 000207 RTS PC 

15 -SET UP POINTERS FOR MOVE AND SAVE COUNTERS 

1597 004536 012700 oo0602 ETRDEX: MOV #WRCHEK , RO = 
1598 O04S542 012701 MOV #ORVADR, Ri 

1599 OO4S46 066701 174016 ADD IVE,R1 

1600 O04SS2 066701 174012 ADD CDRIVE,R1 

1601 OO45S6 01110 MOV dR1,R1 

1602 OO4560 RTS 

1603 “CLEAR ALL DRIVE COUNTERS 

1604 OOo4Sb2 104410 BLRAL: RSFDRV 

1 povee4 767 000206 CLRI: JSR PC, REWIND 

1 767 O0003S2 ISR PC’ CLRTBL 

1607 004574 104406 SVCTRS 

te BONEOS end BR ét a 

1610 BpaeSe BoaeGe 000010 174034 BIS #10, MODES sAT END OF RLS 
1611 OO4810 005067 177662 CLR TSFLAG 

1612 004614 000207 RTS PC 

1613 “RESET DRIVE SELECTION TO LOWEST NUMBER 

1614 OO4616 O0S067 173746 RSFDR: CLR CDRIVE START WITH DRIVE 0 
1615 Dovbee 012767 000200 173736 MOV #200, CORVBT *BIT FOR DRIVE 
1616 036767 173724 173730 RSF1: BIT MSBITS,CDRVBT 31S DRIVE SELECTED? 
1617 D046 1006 BNE RSF :Y 

1618 173724 INC CDRIVE *NO + 1 TO DRIVE 
1619 OO4644 1 CLe . 

1620 004646 006067 173714 ROR CDRVBT sROTATE DRIVE BIT 
1621 O046Se2 BR RSF 1 * $REPEAT . 
lbo2 bowesy 16767 173710 173702 RSFe: MOV CDRIVE, COMAND . 

1623 367 173676 swan_—_—«< 

1624 OO4666 105767 174440 TSTB ;SET PROPER DENSITY BITS 
1625 Ooue7e BPL 10 

1626 74 052767 O40000 173662 BIS #40000, COMAND 

1627 004702 767 OOO1D0 174422 BIT #100, PARAM 

1628 004710 001403 BEQ +1 

1629 OO04712 052767 oO20000 173644 BIS #20000, COMAND 


mea ee - - -~ 


TM-11 DATA RELIABILITY 7 TRACK MACY11 27(732) 10-SEP-76 12:19 PAGE 36 
DZTMCC.P11 

1630 004720 032767 000400 174404 BIT W400, PARAM TEST PARITY SELECTED 

ips tre Oss7ey OO4000 173626 Bis i (0, COMAND Pt N 

1 

1635 sSELECT NEXT DRIVE IN SEQUENCE 

1636 +1 WORD TO EXIT ADDRESS IF LAST DRIVE TESTED 

1637 pour 005267 173624 GHGOR: INC CDRIVE TO DRIVE NUMBER 

ies aue 5 173614 ROR DRVBT VE MASK BIT OVER AC 
teia Bovses Boroea Bke EHC AOE if Rone ’b ives SELECTED 
1641 004754 104410 RSFDRV sRESE! DRIVE cect TO LOWEST NUM 
164 OOu75 062716 ooo002 a00 #2, 3SP + 2 TO SKIP OVER FIRST EXIT 
1644 004764 036767 173576 173566 CHGl: BIT CORVET, MSBITS 

1645 004 001762 BEQ CHGDR 

tb 004774 BR RSFe 

1648 REWIND DRIVE TO BOT 

1649 004776 105777 173500 REWIND ant C 

1650 o0s00e2 00375 Be ;WAIT FOR CONTROL UNIT 

1651 O0S004 O16 173554 173470 MOV Conan, arc “SELECT DRIVE 

1652 o0501e 77 173462 ROR ants 

1653 005016 103375 al + Bee rs ne sHAIT wR TU READY 

ieee Bosse foive? BoOl4e isk pheasant ; 

1656 005032 000207 RTS PC’ EXIT 

1657 GFE PRE ALL DRIVES BT END OF TAPE 

1 ppepae 104414 ALLI: Ree ris | 

1660 005040 032767 O00060 173576 BIT #60, MODES AT EOT? 

IEE Bhepes fpques _ aLLeOs AONE ALL DRIVES? 

: 

Tees pesos barat pA ih 

1664 005054 000431 ALL3 

1665 005056 1044 ALLEOS: cKSu 

1666 005060 000400 173424 #400, 2SWR ;TEST SWITCH § TO EXIT AT END OF SEQUENCE 
1667 005066 001426 Q ALL2 T 

1668 005070 767 OO0010 173546 BIT #10, MODES ar’ END OF SEQUENCE 

1669 005076 O01422 BEQ ALL NO, EXIT, DON’T DUMP ERROR COUNTERS 
1670 sDUMP ERROR COUNTERS ON ALL DRIVES 

1671 005100 104410. ETROMP: RSFDORV ' 

1672 005102 104414 MVC 

1673 005104: 005767 177366 TST TSFLAG 

1674 005110 001007 BNE CTRD ;DUMP READ ONLY 

1675 O0Sli2e 787 001100 JSR PC,ENDT1 

167 ete 7? Q00004 173516 ane #4, MODES READ PASS SELECTED? 

ierg GbE Lee I Bed COME ine 

1 1 003112 CTRD1: JSR PC, RNOTP1 

1680 005134 104422 CDMEND: CHGDRV ;DONE ALL DRIVES 

1 0051 36 i BR CTROMP+2 :N 

1 1 16 oo0002 -ALL3: ADD #2, (6) INCREMENT RETURN POINT 

1683 005144 ALL2: ATS FC 


TM-11 DATA RELIABILITY 7 TRACK MACY11 27(732) 10-SEP-76 12:19 PAGE 37 
OZTMCC.P11 ) 

1686 “CLEAR READ AND WRITE TABLES 

1687 005146 012700 000602 GLRTBL: MOV #WRCHEK, RO 

1688 0051 CLRT1: R (0)+ 

tees Bat soe af foes 

1691 005162 O42767 000070 173454 BIC #70, MODES 

1692 005170 900207 RTS PC 

1693 - INTERRUPT ENABLE, GO, WAIT FOR INTERRUPT 

1694 005172 012777 000200 173310 QOWAIT: MOV #200, ICC sSET PRIORITY LEVEL 4 
1695 005200 big76? 900001 000014 MOV #1, SWAIT ja1SHALT NSTR 

169% 005206 01 005234 173322 MOV #G1, INTV SET INT T RETURN 
1697 005214 052777 000101 173260 BIS #101, aMTC INTERRUPT ENABLE, GO 
1698 005222 000001 SWAIT: WAIT “WAIT FOR INTERRUPT 

1699 005224 012777 OO0340 173256 MOV #340, aCC ‘RESTORE PRIORITY LEVEL 7 
1700 005232 po9207 RTS PC tEXIT 

1701 005234 012767 O00240 177760 GWl: MOV #240, SWAIT :NOP IT JUST IN CASE 11/34 
17¢ ooS242 000002 RTI RETURN FROM INTERRUPT 
1704 *WRITE RECORD SECTION 

1705 oose44 173354 WRITI: TST RECORD sIS THIS THE FIRST CORD 
1706 005250 001031 NOINCR :NO, SKIP SET UP OF RECORD LENGTH AND BLOCK INCREMENT 
1707 O052S- 016767 173250 173274 MOV MAXLEN, STRLEN 

1 005260 012767 177774 173310 MOV #-4. BLKINC 

1703 005266 032767 O00020 174036 BIT #20, PARAM 

1710 005274 001006 BNE Wi 

1711 005276 016767 173226 173250 MOV MINLEN, STRLEN 

i7ig 005304 012767 OO00004 173264 MOV #4. BLK 

1713 005312 016767 173236 173320 Wl: MOV STRLEN, WRTLEN 

1714 005320 032767 OO0C4O 174004 BIT #40, PARAM ;DOES RECORD LENGTH CHANGE? 
1715 005326 0010e BNE NOINCR > YES 

1716 005330 005067 173242 CLR BLKINC *NO 

1717 005334 016767 173264 173264 NOINCR: MOV RECORD, WRRES 

1718 005342 005/67 177130 qs TEFLAG 

1720 Bhesep une, Be PC sEXIT WRITE ROUTINE IF TEST S 
1721 005352 O0S067 173216 CLR WRPASS 

1722 005356 016777 173202 173116 STRTOP: MOV COMAND, IMTC ;SELECT UNIT 

1723 005364 105777 173112 TSTB = MTC 

1724 005370 100375 BPL <4 ;WAIT FOR CU READY 

1725 173102 ROR aMTs *WAIT FOR TU READY 

1726 103375 BCC : 

1727 OOS400 016777 173234 173076 NONSTP: MOV WRTLEN, JBC ;SET BYTE COUNT 

1728 005408 005477 173072 NEG JBC 

1729 O0S4l2 016777 173114 173066 MOV WBUF, ICA ;SET CURRENT ADDRESS 

1730 005420 056777 000004 173054 IS #4, MTC : 

1731 005426 767 177540 SR PC, GOWAIT : INTERRUPT ENABLE, GO, WAIT FOR DONE 
1732 RETURN HERE AFTER’ INTERRUPT 

1733 O0S432 017767 173042 173140 MOV aMTS, STATRD ;SAVE STATUS 

1734 005440 005777 173036 TST 

1735 100542 BMI RROR sHAVE ERROR FLAG, CHECK FOR EOT 
1736 O05446 767 173122 TST WRPASS WAS THIS A RECOVERY PASS 
1732 4S2 3410 BEQ TSTSTP =NO 

17 454 616700 173114 MOV SS, RO > YES 

1739 OOS460 006300 ASL RO 

1740 O0S462 062700 o00b02 ADD #WIRCHEK , RO 

1741 O05466 O0S5210 INC aRO +1 TO APPROPRIATE RECOVERY PASS COUNTER 


ee ee ee oo e————_ 
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eS 
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005470 
00S474 


173100 
000014 


173064 


333 
Bododi 


000010 
oooo02 
000010 
001450 
177400 
177470 


001576 
172756 


000034 
000001 


nate 


07 
76 ooaoo2 


172740 
0010 


00001 
172700 


172672 
172726 


172716 
172622 
172664 
000010 


173630 


173120 
173110 


173076 


173552 


001612 


173012 
173002 


172770 


172752 


172732 
172614 
172602 


172704 


172674 
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CL WRPAS 
TSTSTP: I 48 WRITE MODE NONSTOP? 
: YES 
§ 


' ;CHANGE RECORD LENGTH 
SEXIT ATER RLS? 


3NO 
NBS" ARE WE AT END oF cup 
; YES 
W10: SEXIT EVERY RECORD? 
NONSTP :NO 


RT 410, : Y§s 
STOPOP: ite WRITE MODE RANDOM? 


EQ : 
sRANDOM STALL neti 
RANSTP: JSR PC. RANGEN ° 

IS #177400, RANDOM 


B 
. RANI: i 4-200. A sDELAY 1 MILLISECOND 


72 
RANDOM 
RAN1 
WRPASS 
STRTOP 
PC, TESINC 
#1, MODES ;EXIT AFTER RLS? 


#10, MODES IVES, ARE WE AT END OF RLS? 
STRTOP :NO 


PC ;YES 
#2, MODES SEXIT EVERY RECORD? 
SI TRTOP 3NO 


RTS *YES 
RECORD LENGTH SHOULD BE CHANGED 
INC EC +1 TO RECORD COUNT 
#10, NODES *NOT END OF RLS UNLESS SET BELOW 
TSINCe 
BLKINC, WRTLEN =f 
URTLEN, "MINLEN ;RECORD LENGTH TOO SHORT? 


WRTLEN,MAXLEN RECORD LENGTH TOO LONG? 
TSINC2 


BLE . 
RESETL: MOV STRLEN,WRTLEN ;YES, RESET 
TSINCe: ist 8 Cc 


TSINC ;NO 
IS #10,MODES ; INDICATE AT END OF RLS 
TSINC3: RTS PC 


;HAVE AN ERROR FLAG DURING WRITE OPERATION 

IF ERROR IS CAUSED BY END OF TAPE FLAG DUMP WRITE ERROR COUNTERS 

;FOR ALL OTHER ERRORS: PRINT COMMAND AND STATUS REGISTERS AND RECORD \UMBER 
SIF -READ PASS IS SELECTED, TRY TO RECOVER BY WRITING WITH XIRG. 
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w 
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co0D 
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006064 


fs aa 


BAT OM ERNE Rats 


Ree 


Gare & 


032767 175600 
172606 

O86 
O0Se6? 172606 
020000 


atae 012616 


be7e? 172622 
004767 003006 


172620 


00 172510 


172536 


172456 


172524 


172560 


172474 


003162 


003154 . 


003142 


003126 
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ERROR: 


ERR1: BIT 


TESREC: Bit 


TESRC1: art 
BEQ 


STREC1: JSR 


MP 
;DRIVE IS AT EOT. 


ENDTAP: Inc 


ENDTI: MOV 


MOV 
DUMP WRITE ERRO 
WRTDMP: JSR 

MOV 

BIC 

MOV 

CMP 

BNE 

MOV 

MP 


MOV 


#17S5600,STATRD ;AT EOT? 
ENDTAP ; YES 


UREASS . 
RR1 sFIRST ERROR? 

WRCHEK ‘YES, + 1 TO WRITE ERROR 

#20000, ASUR s TYPE ALL ERRORS? 

aM Re , 

\ FLEN, LENGTH Po ee 

PC,PRTS ;PRINT STATUS, COMMAND, RECORD, LENGTH 
#100, 9SHR ;RECOVER STATISTICALLY SELECTED? 
WRPASS +1 TO WRITE RECOVER 

86. ,HRPASS SHAVE WE TRIED TO WRITE RECOVER 8 TIMES? 
PERMBS ‘YES. +1 TO PERMANENT BADSPOT?: 

4 MODES is READ PASS SELECTED? 

PC, XRGREC : 
i 
fore 
Wil i 
PC, BACK! 3 
pc Back! ;BACKSPACE 2 RECORDS , 

+6" 
ete 
COMAND, aMTC 

10, amtc 
PC, GOuALT ;SPACE FORWARD 1 RECORD 
#4 anTC ;CHANGE FROM SPACE TO WRITE 
RECORD 
#40, MODES s INDICATE DRIVE AT EOT 

ansGe4, Re 
#"SG8,R2 
Ae 
PC, PRTD ;PRINT DRIVE, PATTERN, PARITY, DENSITY 
PARAM, CHAR 
wena 

U GHAR 
see Re 

#1 , CHAR 

#MSG13,R2 


, 


1 





0-- 0 6 0 ~ 0-< 0- + 8 -< B< 8 0 & = 9 9 ps 


eRe IIITGS 
— 


Je 
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“ 
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~ 


8 
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wy 
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— 
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172310 


173019 
O16 
ae 
013308 
013311 
013336 
172164 
090604 
000065 
004741 


013360 


00C&ze 
172132 


013402 
17élle 
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sPRINT WRITE MODE 
;PRINT RECORD NUMBER 


;PRINT RECORD LENGTH SEQUENCE 


;PRINT “WRITE ERRORS=" 


;PRINT STATISTICAL RECOVERY 


;SKIP PRINT IF = 0 


;PRINT “PERMANENT SRDSPOT™ 
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igee Boccia lbwse asi 
1 514 000207 PC 


83° 006 RTS 





2 
4 
~~ 
~ 
wP 
o~- -4 
-D 
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;GENERATE DATA PETTERN 
iBLL PATTERN HAVE Ms 15,14,7,6 SET IN CASE CORE DUMP SELECTED 
. Pp . 


5 
z 


SSSR Re RRS ees 


’ 


OO 0O000 0OOWD 
OCD ICU. LITUE~ 


107 
;PATTERN 0 
“HIGH FREQUENCY OUTSIDE SKEW 
140701 PATEO: MOV #140701,R3 


3401 
; HALF FRESUENCY SUT SIOE SKEW 


1 
1 
1 
1 
1 
1 
3 
1 
1 
I 
1 
1 
1 
1 
1 
bf 
1 
1 
1 
1 
1 


SESS 
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DZTNCC.P11 


13 poeple pie7gs 140301 PATOO: av HT uaa 31 
| ee 

1333 Bosses Obbsas a Rig 

1 006626 


167737 PE1: 167737 327437 
‘4 175767 : 


006634 012703 o0be42 baTO!: NOV §P01,R3 
ay eS ae ino 


Sessa aascauaes 
; 
ae 


1 
1 

1 

l 

i 

1 OO06644 142310 142310 2010 
1343 006645 140702 140702 :402 
1945 Phe Suenc 

146 or FREQ Y EVERY OTHER TRACK 

1547 008650 912703 152725 PatE2 #152725,R3 ; 12425 
1948 006654 000511 BR PFILI 

t “HIGH FRE Y EVERY OTHER TRACK 
tae 006656 012702 165352 bates. nov altos 352, 25052 
ee ATTERN'S 

1954 TALE FREQUENCY ou a7 FS TRACK, HIGH FREQUENCY INSIDE TRACKS 
1955 OO6664 012703 177377 PATE3: MOV 37077 
1356 006670 00502 BR 

1 *HIGH FREQUENCY SUT ETOE TRACK, HALF FREQUENCY INSIDE TRACKS 
1958 006672 012703 177701 PATO3: MOV 8177701,R3 :37401 
1959 006676 000500 naitvine PFIL1 

1961 SU NCRERENTING PATTERN (NO ALL 0’S) 
1962 006700 012703 000301 PATE4: MOV #301,R3 

193 006704 110322 MOVB 3, (2)4 

1964 706 O26702 171622 CMP RBUF , Re 

1965 006712 001001 BNE 

1965 006714 000530 BR PATEND 

1967 006716 105203 INCB 

1968 001767 BEQ TEY 

1969 006722 900770 BR PaTEN+y 

1 -INCREMENTING PATTERN (INCLUDING ALL 0’S) 
1971 006724 005003 PATO4: CLR R3 

1972 006726 110322 MOVB 3, (2)+ 

1973 006730 Oe6702 171600 CMP RBUF , Re 

1974 7 100 BNE +4 

1975 7 1 BR PATEND 

1976 006740 03 INC R 

1977 006742 000771 ee PATO4+2 

1978 PATTERN 5 

1979 "THREE 0’S EACH TRACK EVERY 6TH WORD 
1980 006744 012703 006752 PATES: MOV 

ieee 

1 

1983 

1984 


Boe?ee e749 PES: ib7as? Pris ; 17437 
1 





Be 
a8 = 
oe 


Ree 
ane 


- 


= 


p= b= b= Bb pb &-= 8 = b - B= B= fo > 
oe 


SEERA PERSO SES 


ses 


5 


tf 
B= Be RH 2 hme 


ete iapisicts 


oe § & 


SRSA ESS 
BERBRRB Ts SRR 


88 
NN 
sz 


Pane Meo atan agi 


907000 


171426 
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173767 . 
171767 . 
Le ieee 
7 . 
17737 337 


piHRee we TRAEK BEVERY 6TH WORD 
sai BR PFIL§ 


160340 20040 
1 310040 
150 31 
14431 3401 
14231 201 
tHe304 $2004 
140708 +489 
- 140701 :40] 
;PATTERN 6 
“ALL 1°S ALL TRACKS 
PATE: MOV a1 R3 
PFICI 
sPATTERN 7 
(NONE ALL 0°S) 
PATE?: JSR PC. RANGEN 
BITB 877. RANDOM 
BEQ PATE? 
MOVB § RANDOM, (2)4 
CMP RBUF Re 
BNE PATE? 
MOV ROADON, (2)+ 
ge Baty 
BR PATEND 
“FILL WRITE BUFFER WITH CONSTANT PATTERN 
PFILI: MOV R3, (2)4 
CMP R2 
BNE IL 
BR PATEND . 
iF IU WRITE BUFFER WITH 3 WORD PATTERN 
PFIL3: MOV »R4 
ADD #6, R4 
PFIL3A: MOV (35+, (2)4 
CMP RBUF ; Re 
BNE +4 
Br PATEND 
MP R3, RY 
BNE +6 
SUB #6, R3 
BR PFIL3A 


;FILL WRITE BUFFER WITH 9 WORD PATTERN 
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m4 
—D 


[=] 
r= 


ay B 


suas 


R3,R4 
“8 
;FINISHED PATTERN GENERAT 
172126 iff core ay NOT 1156, Be TED “CLEAR 15 Cone’ DUMP »14,7,6 ay ALL WORDS OF WRITE DATA BUFFER 


172116 ls PARAM MAYBE, 1S CORE DUMP SET? 


eit : YES 
PATEN: ia ee ?NO 
#140300,(2)+  $CLEAR BITS 15,14,7,6 
* CMP R2 DONE ALL? 


BATEAL 
PC 


XIT WIT vate RI ATION “Ri 
AS OE OLR ROO 


MOV 
MOV 


01 
01 
1 
1 
1 
ot 
1 


1 AND 
0 Re 


tp oop 
BS PROPRIATE OER’ TO NeKE x “129 
500 Coa Conerat 
; PROPAGA PROPAGATE corey 
3ADO HIGH CONSTANT 

TE CARRY 
ADD HIGH CONSTANT 
*RE-PRIME RO WITH HIGH DIGIT 
; PROP CARRY 


tBUY'RO BACK IN LONUM 
RESTORE REG fh ean 


ees 


o0000 
a am a mel 

=) 
assy 


ei 
4 
a 
a 
BS 007176 
3 ree 
Se ies 
2067 
Be ier 
Aq 
rie 
ve 
Brae 
ae 
Se: 
cer Gira 
ee Girash 
Be tes 
sss Garars 


SE saab toss at totaal ir tate, 


-_ 
Coun T 
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| 


“READ RECORD SECTION 
READI: ist RECORD sFIRST RECORD? 


HOV ISET INITIAL READ LENGTH 
SR. “ SINITIALIZE READ PASS COUNTER 


& 


is PC ;EXIT 
OM , 


b= Ps hho pe 


SBBVFRZ 


SV3: 


;WAIT FOR CONTROL UNIT READY 
sWAIT FOR TAPE UNIT READY 


;CLEAR READ BUFFER 


sSET BYTE COUNT 
sSET CURRENT ADDRESS 
5 
ISR 
;RETURN HERE AFTER 
MOV 
TST Te SANY STATUS ERRORS 
CHECK FOR-DATA = 
‘ MOV RUF RO 
MOV  WBUF’RI 
MOV N.R2 
ss: CMP (Os sCHECK FOR PROPER DATA TRANSFER 


; CHECKED ALL TRANSFERS” 


MGs Gee 


: 


ze 


_ 


see 
Bn 


171514 RTSSTP: BIT 
JSR 
C 


= 


ge 


170776 ; INCREMENT FOR NEXT BLOCK 


;EXIT READIT 
171466 : iS READ MODE RANDOM? 


e 


177526 


eeieseie 


: 


sDELAY 1 MILLISECOND 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


FOr Bed GOTT ECT ODED NOUN 2 Cahir bee NOUN 2 Corer CoO IOUT -E coro 


5 
: 
: 


: 
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2 
3B 
-—D 

a 


OZTNCC. 

2153 007670 005267 1775le 

: 74 l ef \ 
: 1 
a 007712 000207 

ele bovres 01014 
51 bo7799 1b8aoe 012776 
2164 aie ? 170704 
sie fier Bins 0 
Bee ie 
hee eo ee 
sie 007764 Bose 170644 
5173 007770 O004e6 

se aoe Gar 70 
Be Aiba Baz. oxo 
517) testa Ole70e 012751 
ne eee 
tte 010026 004767 001000 
A lll 
tt, Tteaea 170564 
se Bie Bar, 
2189 010056 O05e67 170510 
a ae 
Sia ‘Oioo7a Oodle? 177852 
sia states ged 170536 
Sac Bibioe 032767 

2196 010114 001054 

ts 010116 000667 

ab 010120 005267 170500 

0101e4 005767 170446 

2201 010130 001416 

2203 010132 066767 170440 
oe tine tee, 
2206 states Bree 170466 
ecO? 0101 3 

ee08 010160 016767 170370 


new ee ee 


170720 
170570 


170616 


170610 


170600 
170502 
170530 
170532 


170436 


pa 


170502 
170362 


170350 
170454 


MACY11 27(732) 


INC 


RDSTP: ist 
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RANDOM 


1 
PLA ADINR 
RECORD, LASRCR ;DONE LAST RECORD? 


naked ernon’® YES EXIT 
ane v eet BIT #20000, ISWR :TYPE ALL READ ERRORS? 
BNE DATERI : NO 
Noy #MSG9A, R2 
MOV READLN, LENGTH 
ISR PC. PRTS 
MOV -(1),R2 sPRINT EXPECTED DATA 
OCTPRT 
MOV -(0) Re 
OCTPRT sPRINT ACTUAL DATA 
DATERI: cHP #-3, ROPASS 
INC RRS +1 TO DATA ERRORS 
BR RTSR1 
sSTATUS INDICATES AN ERROR, CHECK FOR EOT 
RDERRO: BIT 


MOV 


#1 ,STATRD ;IS LEGITIMATE OR EOT? 
He TRE EOt 


JSR 
-+ 1 TO RDERRS IF FIRST ERROR PASS 
: CMP #-3, RDPASS 


RTSREC: 


INC 
RTSR1: Bit 
INC 
BEQ 


, OSWR ; TYPE ALL READ ERRORS? 
SREC 3NO 
#MSG9,Re 
T ;PRINT ERROR 
LENGTH 
PC, PRT 
RDERRS ;+1 TO STATUS ERRORS 


Renesas eo 


3Y 
;DONE ALL RE-READS? 


RDPASS 
Be BBoK! {NO BACKSPACE TAPE 
Bsa fep G0’ AGAIN 


341 TO NONRECOVERABLE READ 


TRS RDPAS 
sb Cra FRO AT EOT? 
RNOTPL YES, TYPE “EOT™ 


BR ROSTP 
: SET uP POINTERS FOR NEXT RECORD 
RDINCR: 


INC“ RECORD 
ST INC 
BEQ STRI 
;RECORD LENGTH IS CHANGING, COUNT IT 
ADD KINC, READLN 
crip REAOLN,MINLEN 1S LENGTH LESS THAN MINIMUM 
CHP READLN, MAXLEN ;1$ LENGTH GREATER THAN MAXIMUM? 
RESTRL: MOV § STRLEN,READLN RESET INITIAL LENGTH 


LETE READ RETRYS (SW 4)? 
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DZTMCC.P1l 


010302 


eee 


ESRiawirgsiittis 


SPPPELS 


bs hs bb bs he BR be eB eh he 8 fh Bb he he 
2RR2ew0 
erVo 


OOOOOOOOOOOOOOOO0000000000 


EE: 


Stet 
222 
FLO 


013272 
022767 000001 
091002 
Ole702e 013252 
000002 
teed 013262 
016 170260 
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RESTR1: RIS PC 





RAG OE SG 
. Bee 4 ;WAIT FOR TAPE UNIT READY 
NOV 41980 sCOUNT 1 RECORD 
ats #l2,antc ‘Fete BoriSBace 
ISR PC, GOWAIT 
BIC #16, aMTC 
DRIVE HAS RE EOT IN READ M 
RNOT AP: aie psAmopEe INDICATE AT EOT 
RNDTP1: MOV pete re ‘ 
MOV A Re 
-OUMP ERROR COUNTERS 
READMP: JSR PC, PRTD ;PRINT DRIVE, PATTERN, PARITY, DENSITY 
MOV PARAM, CHAR 
BIC #177774, CHAR 
MOV #4SG14. Re 
CMP #1, CHAR 
MOV #MSG12,R2 
CMP te, CHAR 
MOV #SG13,R2 
TOP PRINT READ MODE 
MOV RECORD, Re 
DECPRT sPRINT RECORD NUMBER 
MOV c 
BIC #177717 CHAR 
MOV #MSG1 
CMP 20, CHAR 
BNE +6 
MOV #MSG18, R2 
CMP #40, CHAR 
a wec15 Re 
CMP #60, CHAR 
Oya 
is ;PRINT RECORD LENGTH SEQUENCE 
MOV 
DECPRT 
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10462 104426 DECPRT 
0464 12708 013503 MOV | Jumma 


isi79 6 6702 170140 Vv NRREAD , Re 
te 34 Hee PRT : 
105 104436 CKSW 


PC 


TM-11 DATA RELIABILITY 7 TRACK 
DZTNCC.P1l 


10504 012767 177774 
2879 010512 032777 00040 
SSR) BiBESS ERASE soruye 
5 fies ie 
5584 010534 016777 170024 
28s 01084 14 
5586 Ol 16777 4 
SSeq BibeEs Diese? iEoraa 
S5e9 pigess Doear? 1erro4 
5599 010574 103375 
seu 010876 004767 174370 
5594 O10602 017767 167672 
5595 010616 005777 167666 
ee%e 010614 03 
10616 O0SO&? 167752 
598 O10622 000207 
5599 010624 032767 175600 
e300 0106s 001771 
1 010634 167734 
e302 010640 O01z24 
10642 012702 012616 
Saye BiOede OxecnS 
5306 O10650 016767 167764 
e307 10856 004767 000150 
5398 010662 012702 013224 
5309 010666 104404 
e310 010670 O4e7e7 02000 
311 010676 O01 
5312 010700 042777 000016 
313 910705 oo00 
19 619719 Ood767 1742 
5315 010720 
5316 
5318 O10722 OIG767 167676 
S318 BiO7s8 BIEZES LEZEoe 
5357 BIOPaR BOUTES 174032 
5355 Btovus ppoeee : 
5323 10746 316777 167656 
5354 10754 166777 167646 
325 010762 OOS77 167516 
5356 010766 016777 167572 
e307 10774 108777 Le7808 
58 011000 100375 
3329 011002 006077 167472 


ene ee es 


170062 


167772 


167740 
167732 
167726 
167716 


167770 


167746 


167700 


167702 


167574 
167566 


167700 
167666 


167530 
167522 


167506 


MACY11 27(732) 
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sHRTTE orien bow UTILIZING EXTENDED INTERRECORD GAP 
VERY 7 REWRITES OR AFTER 
tec ras init ‘Pe sPaBe ogleC TED RECOVERY NOT SELECTED 


;COUNT 4 REWRITES 
;DELETE WRITE XIRG (SW S) 


;YES 


SEY Byte COUNT 


;SET_ CURRENT ADDRESS 
WAIT FOR TU READY 


;SAVE STATUS 
;HAVE ERROR FLAG, CHECK FOR EOT 
;EXIT WRITE XIRG - 


sONLY EOT, EXIT 
:DONE 4 XiRG 


;PRINT WRITE STATUS ERROR 


;PRINT STATUS, COMMAND, RECORD, LENGTH 
;PRINT “XIRG WRITTEN 4 TIMES” 


;WRITE AN EOF 


31S NEW RECORD=0 
$108, REMINO 


SET BYTE COUNT TO DIFFERENCE 
BETWEEN LASRCR AND WRRECK 


;WAIT FOR CU READY 


IY 
i a 
Ng 
ars #14 Sa ate 
Abe cae 
No oBtE aca 
ROR Fite 
BCC 4 
ISR PC, GOWAIT 
RETURN HERE AFTER INTERRUPT 
MOV aMTS, STATRD 
TST aMTc’ 
BMI XRGS 
XRGRCD: cLR WRPRSS 
XRGS: BIT #175600, STATRO 
BEQ XRGRC 
INC 
BNE XRGO 
; PRINT STATUS AFTER 4 XIRG ERRORS 
MOV WRTLEN, LENGTH 
JSR PC, PRTS 
MOV aNoG11, Re 
BIT #2000, STATRD 
BEQ XRGREC 
BIC #16, aMTC 
1S g.antTe 
SR PC, GOWAIT 
RTS PC 
-GO BACKWARD ON TAPE X RECORDS 
GOBKWD: MOV RECORD, LASRCR 
MOV WRRECR, RECORD 
BNE GOBI 
JSR PC, REWIND 
RTS pc’ 
GOB1: MOV LASRCR, JBC 
SUB WRRECR; JBC 
MOV COMAND, aMTC 
TSTB = MTC 
BPL.Stié««s= 
ROR aMTS 


;WAIT FOR TU READY 
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2330 011006 103375 Bcc 4 
2331 11010 042777 900016 Le764 BIC #18, NTC 
cry GIR Biagge TINE B Res t8intr 
2335 “PRINT COMMAND, STATUS, RECORD NUMBER, LENGTH 
ll 012708 013021 PRTS: MOV #MSG9B, Re 
11 i 4 
338 O11 17702 167436 MOV aMTC, Re 
339 O11044 1Ouu1 OCTPRT 
11 167 167526 MOV STATRD, Re 
1 11 i i ) OCTPRT 
11054 016702 167544 MOV RECORD, Re 
2343 011060 Oo0S202 INC R2 
eau 11062 104426 DECPRT 
11064 016702 167466 MOV LENGTH, Re 
gab 110 104426 DECPRT 
11 104436 CKSW 
eae 011074 000207 RTS PC 
2350 rs -PRINT DRIVE, PATTERN, PARITY, DENSITY 
gze1 011076 016767 167462 000322 PRTD: MOV COMAND, CHAR 
11104 7? 00031 WAB =: CHAR 
2353 011110 142767 000170 000310 BICB #170,CHAR 
2354 O11116 052767 000260 000302 . BIS #260. CHAR 
e355 Oitles ToH3 000300 13k PC, OCTP ;PRINT DRIVE NUMBER 
5325 Biitse breve 170174 000266 MOV PARAM, CHAR 
2358 011140 000262 - SWAB CHAR 
Pe) ilies fherer Shr ome = ESI. 
2361 pi ttee Be ? anetae 000242 Ete 1oep’ HAR: ‘ 
2362 011164 004767 O00240 JSR PC, OCTP ;PRINT PATTERN NUMBER 
2363 011170 1044.30 SP3 
2364 Oiii7e 16767 170134 000226 MOV PARAM, CHAR 
2365 011200 000367 O00222 SWAB HAR 
2366 011204 O42767 OOO176 cooel14 BIC #176, CHAR 
2367 Oll2l2 OS2767 000260 OO0206 BIS #260, CHAR 
e368 011220 004767 000204 JSR PC, OCTP ;PRINT PARITY 
2370 
2371 011224 016767 170102 000174 MOV PARAM, CHAR 
2372 Ollese 042767 177477 000166 BIC #177477, CHAR 
2373 011240 O12702 013645 MOV aMSG26,R2 °C 
2374 011244 O22 000100 000154 CMP #100, CHAR 
2375 O1les2 BNE +6 
2376 011254 012702 013655 MOV #MSG27, R2 
2377 011260 767 O00200 O00140 CMP #200, CHAR 
2378 Ollebs O0100e2 BNE +6 
2379 11270 12702 013665 MOV #MSG28, Re 
2380 011274 767 000300 000124 CMP #300, CHAR 
2381 011302 001002 BNE +6 
2382 011304 O12702 013675 MOV #MSG29, R2 
2383 011310 104404 TOP 
2384 O11312 104436 CKSW 
2385 011314 000207 RTS PC 
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2386 :PRINT OCTAL VALUE IN REGISTER 2 
2387 011316 012767 O00060 ooo102 OcTPR: MOV #’0, CHAR s INITIAL ze 1ST NUMBER AS 0 
se Blt Bn ee Beth 
2390 011230 012767 000061 000070 MOV #1. CHAR NO PRINT 1 
39 11338 7? O00066 -OCT1: JSR pc,OcTP 
Liste 61 ROL Ro 
11 1 ROL Re 
a TES 76 177773 oo00S0 am HOV 4:5,0CT ;COUNT 5 DIGITS 
11 1 OL : 
2397 011360 906102 ROL Re 
e338 O11 3be 010267 oo0040 MOV Re, CHAR ;SAVE DIGIT 
399 011366 042767 177770 000032 BIC #177770,CHAR § ;CLEAR OTHER BITS 
go O11374 bse767 009060 900024 BI 460, CHAR *MAKE ASCII DIGIT 
2402 O11404 004767 oD0020 JSR PC, OCTP ;PRINT 
03 O11419 006102 ROL Re 
o4 O11412 oo0006 INC OCT ;+1 TO DIGIT COUNT 
2405S 11416 1356 BNE ocT2 :NOT DONE 
2406 011420 104430 SP3 
2407 O1l4e2 000207 RTS PC _ sEXIT 
2408 011424 O00000 OCT: o . 
2409 011426 CHAR: . 0 = ’ 
10 011430 105777 167066 OCTP: ‘TSTB ‘ aTPS 
11 611434 100375 BPL y= ;WAIT FOR READY 
2412 011436 016777 177764 167060 . MOV CHAR, JTPB : PRINT 
2413 011444 000207 _ *. RTS PC 
se 
2416 -PRINT DECIMAL VALUE IN REGISTER 2 
2417 O11446 012767 177773 000150 BECPR: MOV #-S, DIGCNT 
2418 Oi 1454 012767 011632 O00146 © MOV #DECPNT+2, DECPNT 
2419 011462 012767 000040 000136 MOV #40, ZERO 
2420 011470 012767 177777 OO00124 TYPTI: MOV #-1’DIGIT . 
2421 011476 005267 000120 ‘TYPT2: INC DIGIT 
e422 011502 167702 OO0le2 - SUB BDECPNT, R2 
ees 011506 100373 BPL TYPT2 
24 011510 067702 000114 ADD IDECPNT , Re 
e425 011514 004767 O00022 ISR PC, DECOUT 
2426 011520 005267 000100 INC DIGCNT 
2427 011524 O01002 BNE 
2428 011526 104430 SP3 
2429 011530 000207 RTS PC 
2430 011532 062767 OO0002 000070 TYPT3: ADD #2, DECPNT 
2431 011540 000753 ER TYPT1 
e432 011542 005767 oo00s4 DECOUT: TST DIGIT 
p43 11546 001010 BNE DECI 
2434 011550 022767 177777 OOD04S CMP #-1, DIGCNT 
2435 011556 O01404 Bigs BEQ DECI 
2436 011560 016767 oOO0042 oo0034 © MOV ZERO, DIGIT 
2437 011566 OuO +e. BR 
138 11570 01276 9000 000030 DECI: MOV #60, ZERO 
39 011576 052767 000060 O00016 BIS #60’ DIGIT 
2440 O11604 105 166712 DEc2: STB aTPs 
2441 011610 100375 BPL a4 


ees a 
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8 


ZTMCC 


00004 Vv i" GIT, aTPe 


I 
C 


+ £z 


aTKs ;WAIT FOR KEY 
ates ;WAIT FOR TELEPRINTER READY 


-4 
aTKB, aTPB / sECHO CHARACTER 
3KB, CHARIN ;SAVE IT 

CHARIN 


* EXIT 
S50 3A, Re 


34 


- TELET TPUT PACK 
to: a: Mis ;CLEAR TELETYPE FLAGS 

MD (2)+, EOMK : SAVE MESSAGE DELIMETER 
TOPL: MPS #8 


© -e-R- 
£mvMo 


ccm :1$ CHARACTER THE SECOND MESSAGE DELIMITER? 


PC YES, EXIT i 

af a’a ; I ~EHBARCTER AN 2 WHICH INDICATES A CARRIAGE RET. 
aes MS WAIT FOR TELETYPE READY 

(2)+,aTPS ;PRINT CHARACTER 


abit FEED 


4 
#215, a7P8 ;CR 
ate 


Bato 


bat hat at 


Sek CRE RERRREERER 


5 o-- & = © 6-< -- 6 -= & = 6 0 
bo 


BRORRSERSSN Segeudsazsan 


o 
a518,S1r8 


ROSW 
TOP3 
TOP 


/ 
x 


OONOOOVHOO0N OO0OK0OMI00200000 


2h +0 -6-b-b - 0-6-6 +b -b- > > +0 0 —- © + > +08 - > + 0-6-8 





z 
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tpi : ;SAVE VECTORS 


‘REFERENCE HARDWARE SWITCH REGISTER 
bes (SP)+ 


spt tee spay ‘Point r Ac am Siseeay REG 


Bite seach 
PC 


Be ACROSS 
Bi siaiet: 


+ + 0 0 > - 6 — ~~» - 6 -P—- Bo 
furury 
b= D2 Bs 


os 
o 


ae. SWR ND, GET abet REG PRESENT 


$ Ks i IT FOR 
OUT AY, GET CHARACTER 
atk, TIS State OFF 
#177600, TIe 'THE GARBAGE 
g4 1E8 sIS IT A’ <tG 
#SCNTG, Re 
eSMSWR,R2 
SUR, Re 
SSMNEW, R2 
DSTEMPST 
PC, SREAD 


ROTA 
ODNIMU£ WtU~-O 


rururururururorururorurury 
bs 2 OO hh de 
NF LERHESRRY 


Sees 


BODY OF PROGRAM 


mE 


TEMPST 

87, COUNT 

#177600 CHARIN 
, CHARIN 


ta 
Re 


220 
eSel 
bees 
2Se4 
2525 
e526 
ese? 
2528 
2529 
2530 
ese 
2533 
e534 
se3e 
2S37 
2538 
2539 


rt) 
0 
0 
0 
: 
0 
gf 
8 
a 
% 
0 


ee! OVER 
jS,1T @ «CR? 
;BRANCH fF NO 


SRS eee 


— 
oor 


000067 
BGE 
013741 : #SQUEST , Re 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
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¢ 
1 o4 
flee. ge 
Sibir theses iEriCs 
59 135 TaSFE? ApeaER 166736 
e5e0 1355 156767 eee 166144 
1 12378 367 166142 
1 
Es isos 16 166130 166076 
2565 O1e414 9007 
Seps 12416 Ol oo0002 
e5t8 Bi iee leerie odode 
12426 01364 
2570 012430 16 106036 
esie Ha 1 en4 
2574 bisque 11 
2575 OleWNs ce 
oS ea 
5258 eS 006516 
2580 012456 004562 
Sees Ofsues | BO7io4 
2583 O1e¥e4 011446 
See BtSaS8 bt aSe 
2586 Oled7e Olele6 
2587 O12474 012116 
Seee =e tba 4 oS 
2590 104404 
2591 104406 
2592 104410 
2593 104412 
2594 104414 
2 
2597 104422 
2598 104424 
2599 104426 
Seo ae 
2602 Pa 
2603 104436 
0S 12476 037457 20406 ? 
a 1250 057 051500 046105 
2607 012510 O4150S 020124 047125 
2608 012516 Os2i11 020123 Oe7440 
2609 Ol2524 O400S7 051524 de0124 
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rf 
= 


6$: T T 
test | 
BIC #60, CHARIN GET NITTY-GRITTY 
I CHARIN, TEMPST 
ne COUN sONLY WANT & DIGITS 
7$: HOV Hest as SCHANGE SWITCH REGISTER CONTENTS 
TRAP HANDLER 3 
TRAP34: MOV asP,2(6) 
SUB #2, aSP 
MOV acb)+, -(6) 
ADD #TABLE-104400, aSP 
MOV a(6)+,PC 
TABLE: WAITK 
WRITI 
TO 
SVCTR 
RSFOR 
OCTPR 
MVCTR 
GENPA 
CLRAL 
CHGDR 
READI 
DECPR 
SP3x 
SUSWR 
CNTLU 
CKSUR 
WAITKY=104400 
WRITIT=10440e 
torre 04 
SVCTRS=104406 
RSFDRV=104410 
OCTPRT=104412 
psB ea 14 
GENPAT=] 18 
CLRALL=1 
CHGDRV= 104422 
READIT=104424 
DECPRT=104426 
SP3=104430 
=} 6 
NTL=1 
CkSW=1044 
»TEXT MESSAGES 
ASCO: ASCH 3/99 fs 
MSG1:  .ASCIT :/Q@SELECT UNITS /; 
MSG2:  .ASCII ;/QTST PAT PAR DEN RLS WMO RMOD /; - 
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-ASCIT 37. RNDOM 7; 
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ASCII ;/M-MIN/; 

ASCII s/MIN 7; 

ASCII s/MAX 7; 
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MSGe4 =O 1838 
MSG2S : 
1 
MSG30 (Ol 1339 
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1 i 1 
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MSGQ_ ss“ Ole751 2179 
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OCTPR 011316 23878 
TPRT= 1044ie 2167 
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PARAM 001332 10378 
1756 
rN 007216 e054 
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PATENL & 
PATENe 007234 2056 
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PATE! 906620 1910 
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1403 1410 1417 1434 1442 1449 1471 1478 1489 1497 
1553 1570 1659 1672 esse 

17178 

1751 175 

1097 10998 

2268 

1196* 1201 1312% 1313 1350% 

24088 

2368 2331 2402 24108 

2339 2341 2526 25938 

2520 2S3le 2548 

1324 1344 1348* 1511 1557 1624 1627 1630 1709 1714 
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